Excel VBA SaveAS只有一张工作表
是指使用Excel的VBA编程语言，在保存工作簿时只保留当前工作簿中的一张工作表。
在Excel中，一个工作簿可以包含多个工作表，每个工作表都可以包含不同的数据和格式。使用VBA的SaveAs方法时，可以选择保存整个工作簿，也可以选择只保存其中的一张工作表。
以下是关于Excel VBA SaveAS只有一张工作表的完善且全面的答案：
概念： Excel VBA是一种基于Microsoft Excel的宏编程语言，可以通过编写VBA代码来自动化执行各种任务和操作。SaveAs是VBA中的一个方法，用于保存工作簿。
分类： Excel VBA SaveAs只有一张工作表可以归类为Excel VBA的文件操作功能。
优势：
- 简化操作：通过使用VBA代码，可以自动化执行保存工作簿的操作，省去手动操作的步骤。
- 灵活性：可以根据需要选择只保存当前工作簿中的一张工作表，而不是整个工作簿，提高效率和灵活性。
应用场景： Excel VBA SaveAs只有一张工作表适用于以下场景：
- 当工作簿中包含多个工作表，但只需要保存其中的一张工作表时。
- 当需要将某个特定的工作表保存为单独的文件时。
推荐的腾讯云相关产品和产品介绍链接地址： 腾讯云提供了一系列与云计算相关的产品和服务，包括云服务器、云数据库、云存储等。然而，在这个问答内容中要求不能提及具体的云计算品牌商，因此无法给出腾讯云相关产品的推荐和链接地址。
总结： Excel VBA SaveAs只有一张工作表是一种使用Excel VBA编程语言，在保存工作簿时只保留当前工作簿中的一张工作表的方法。它可以简化操作，提高效率和灵活性。在实际应用中，可以根据需要选择是否只保存当前工作簿中的一张工作表。
相关·内容
嗨，我需要在同一个工作簿中的不同工作表上运行不同的vba脚本。基本上，每个工作表都有自己的vba脚本，该脚本触发ODBC连接，然后从数据库更新工作表。我能让一个vba脚本在一张表上运行并保存为.没问题，但只有一个人能跑。这是我正在使用的代码
$excel = new-object -comobject excel.application
$excelFiles = Get-ChildItem -Path C:\test\Daily_update.xlsm
$Date = (Get-Date -Format dd-MM-yy)
Foreach($file in $excelFiles)
{
$
浏览 2提问于2014-02-10得票数 0
回答已采纳
我有一个多工作表Excel工作簿。我想使用VBA将一张工作表保存为html文件。
它应该类似于另存为操作。执行手动保存时，因为格式显示在已保存的HTML文件中。使用VBA时，格式会丢失。
Application.Sheets("MNM Report").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\Reports\09192014\mnm.html"
如何在不丢失格式的情况下实现此功能？
浏览 3提问于2014-09-19得票数 1
我有个VBA：
ActiveWorkbook.SaveAs Filename:=Path & Filename & ".xls"
ActiveWorkbook.Close
这应该是将当前活动的工作簿或工作表保存到提供的路径和文件名。扩展名为".xls“，因此导出的文件是Excel97-2003工作簿。
它保存了工作簿或工作表，但其中包含了一个文件夹。假设文件名为"Master.xls"，ActiveWorkbook.SaveAs工作，但是VBA似乎在它旁边包含一个名为"Master_files“的文件夹，就好像它被保存为一个web
浏览 4提问于2016-12-09得票数 1
回答已采纳
下面是我从其他现有的vba中摘取的一些代码
Set XL = CreateObject("Excel.Application")
XL.Visible=True
XL.Workbooks.Open "path\book1.xls"
XL.Worksheets.Add(After:=Sheet1)
在这里，我需要向book1.xls添加两个不同的工作表，并另存为
book12013DEC03.xls这两张来自book2.xls和book3.xls(一张
从每个) book1.xls已经有了一个工作表，在此之后我需要新的工作表。
XL.ActiveWorkbook
浏览 9提问于2013-12-05得票数 0
谁知道我应该写什么VBA脚本来保存从VBA excel脚本创建的word文档？
到目前为止，这是我的脚本，但我想添加一个步骤，将生成的word文档保存到某个目录中，其命名约定引用了excel工作表中的单个单元格
Sub Export_to_word()
'Export Return
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <>
浏览 1提问于2016-10-24得票数 0
我有一个包含多张工作表的excel，我尝试使用vba保存除4张以外的每一张工作表。问题是，如果我尝试.csv以外的任何其他格式，它会保存整个excel，使要保存的工作表成为活动的工作表。
这是我正在使用的代码(带有csv的代码)：
Public Sub SaveWorksheetsAsCsv()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(ms
浏览 19提问于2020-02-12得票数 0
回答已采纳
2回答
在Adobe DC Pro中，您可以选择将pdf导出到excel 2003电子表格，方法是先转到"Export PDF"，然后选择"XML Spreadsheet 2003“，最后选择"Create Worksheet for each page”。
我在excel vba中找不到任何这样做的代码。
我的问题是，如何通过VBA使excel完成此选项？仅仅将其保存为xml只是使其成为SaveAS电子表格，而不是像Adobe Pro那样“为每一页创建工作表”。
谢谢
浏览 0提问于2019-04-17得票数 0
1回答
我需要保存几个Excel工作表以分离文件。床单是受保护和锁定的，但是我想让拼写检查可用。对于使用unlock>spellcheck>relock的小例程的VBA，这是可能的。
Sub SpellCheck()
ActiveSheet.Unprotect
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", IgnoreUppercase:=False, AlwaysSuggest:=True, SpellLang:=1033
ActiveSheet.Protect
End Sub()
现在，我在要导出的工作表上放置了
浏览 3提问于2015-09-09得票数 0
回答已采纳
3回答
在MS Access中，我很难将不同的csv文件合并成一个xslx工作簿文件作为单独的工作表。我查到的很多东西都是为了excel，但我需要能够在Access中使用它。我在表单中尝试使用的Excel vba代码通常会给我带来错误，大多数情况下是“对象'_Global‘的方法失败”，甚至当我引用excel库并添加excel时也是如此。在所有必要的对象(如工作簿和工作表)的前缀。
编辑：
这是我尝试使用的一个示例代码，用于从csv到xslx的会话。
Dim CSVfolder As String
Dim XlsFolder As String
Dim fname As String
浏览 9提问于2014-08-27得票数 1
回答已采纳
使用C#编写从工作簿中提取单个工作表并将其保存为HTML的方法。
我正在使用Worksheet.SaveAs方法，就像在上描述的那样。
但是，当我查看输出时，它已经离开并保存了工作簿中的所有工作表，而不仅仅是我选择的工作表。就好像Worksheet.SaveAs和Workbook.SaveAs只是做了同样的事情。
简化代码：
public static void saveSingleSheetAsHTML(string workbook, string destination, string sheetName)
{
Application excel = new Applicatio
浏览 3提问于2014-09-04得票数 2
回答已采纳
1回答
在将Excel工作簿转换为CSV时，我的VBA脚本出现了错误。VBA脚本通过Microsoft脚本运行。
Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
Dim wb_xl As Excel.Workbook
Dim wb As Excel.Worksheet
Set wb_xl = objExcel.Workbooks.Open("O:\documents\folder.xlsx")
wb_xl.SaveAs FileName:="O:\documents\folde
浏览 1提问于2020-02-14得票数 1
我有一个主excel文件，其中包含我的宏。在这篇文章中，我创建了工作表，作为我需要处理和修改的未来excel文件的模板。现在，我需要将特定的工作表及其内容复制到新的工作簿中。
我还使用VBA创建了这个工作簿：
Sub NOUDOC()
Dim wbNew As Workbook
Dim data As Date
data = Range("H3").Value
Set wbNew = Workbooks.Add()
ActiveWorkbook.SaveAs ("C:\Users\Alina\Desktop\Carburant &
浏览 3提问于2017-04-05得票数 0
回答已采纳
1回答
我正在做一个vba项目。我的要求是，使用vba代码将现有工作表从excel文件删除/移动到新的excel文件。这意味着将特定的工作表保存到新的工作簿中。我试过很多次，但是保存的文件不是新的工作簿。这是现有的。
代码如下：
xlWorkbook.Sheets("Sheet3").Copy -- this line opens sheet3 as a new workbook
xlWorkbook.Sheets("Sheet3").SaveAs "***Path where file is be saved***", FileFormat:=
浏览 2提问于2015-11-24得票数 0
回答已采纳
当我尝试手动将工作表复制到新的工作簿时，Excel什么也不做。
当我尝试手动复制工作表到工作簿的末尾时，Excel会生成空的新工作表。
当我尝试用VBA复制工作表时：
Sub TransEx()
Dim TemplatesFolder As String, FileName As String
TemplatesFolder = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
FileName = TemplatesFolder & "Transactions" &
浏览 2提问于2015-04-22得票数 1
回答已采纳
我是Excel VBA的新手。
我正在尝试将工作表输出中的一系列数据复制到新的excel工作簿中，并使用E3中的值保存新工作簿。
另外，我还希望能够将数据复制到wordpad中并另存为E3.xml
这是我到目前为止所拥有的VBA：
Sub CopyOutput()
Dim myname As String
mystring = E3
Dim myselection As Range
myselection = Sheets("Output").Columns("F").Select
Set NewBook = Workbooks.Add
With Ne
浏览 3提问于2013-10-12得票数 4
回答已采纳
1回答
嗨，我有下面的宏，保存每个工作表为.txt与文件名作为工作簿中的工作表的名称，我想修改这个宏，使它保存每个工作表为sheetname.txt在一个特定的位置，而不是每次弹出保存对话框选择文件位置。
Private Sub CommandButton1_Click()
'Updateby20150910
Dim xRet As Long
Dim xFileName As Variant
On Error GoTo ErrHandler:
xFileName = Application.GetSaveAsFilename(ActiveSheet.Name,
浏览 22提问于2018-07-23得票数 0
回答已采纳
我正在动态创建工作表，它工作得很好。其中一个创建的工作表包含VBA (Worksheet_Activate)，它是使用VBA插入的，也可以很好地工作。 现在我正在尝试保存创建的文件，while循环用于强制保存我尝试过的文件： While Not workbookUsed.Saved
Dim filePath As String
filePath = Application.GetSaveAsFilename(fileFilter:="Excel File mit Makro (*.xlsm), *.xlsm")
If VarType(filePath) =
浏览 55提问于2020-03-21得票数 0
回答已采纳
我想将隐藏的Excel工作表保存到一个通过Excel VBA按钮生成的文件中。 如何修改此代码，使其只复制隐藏的工作表？ Sub Generate_matriz()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
sheet_exp = Array("Sheet1", "Sheet2", "Sheet3")
fecha = Format(Now, "ddmmyyyy")
Export = fe
浏览 16提问于2019-06-10得票数 0
我有一个简单的Excel工作表，我想将其另存为CSV文件(然后使用Outlook作为附件发送)。完成后，我希望原始Excel工作表处于活动状态并关闭CSV文件。
这部分工作，除了我似乎不能关闭CSV文件。如果我尝试，Excel将终止。
子保存()
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFile As String
CurrentFile = ThisWorkbook.FullName
NewFile = Application.DefaultFilePath & "\new.csv"
App
浏览 1提问于2018-03-07得票数 1
1回答
递归保存抛出错误
、、
我正在编写一个VBA脚本，它递归地遍历并从目录中获取所有的word和excel文件，然后打开并保存为模板，然后关闭。一切都在正常工作，但当我试图关闭打开的excel应用程序时，我会得到一个错误：“运行时错误'91'：对象变量或没有设置块”。
守则如下：
If ExtFind = "xlsx" Or ExtFind = "xls" Then
Debug.Print ("EXCEL FILE FOUND")
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Exc
浏览 2提问于2013-10-01得票数 1
回答已采纳
当我试图通过.SaveAs使用ojbExcel通过VBA创建一个工作表时，我得到了许多人已经经历过的对象定义错误(1004)。这个案子让人讨厌的是，它以前工作得很好，但是昨天开始给我这个错误。我研究过这个错误，我尝试过大多数解决方案，但都没有效果。有关守则是：
fileLoc = Session.GetOpenFilename("Excel (*.xls*), *.xls*")
If fileLoc = "" Then Exit Sub
Set oXl = CreateObject("Excel.Application")
fpath = fil
浏览 4提问于2016-01-20得票数 0
回答已采纳
我有下面的Excel 脚本，我在ExcelforMac2011中使用该脚本将Excel文件的所有工作表导出到.csv文件。
Sub save_all_csv()
On Error Resume Next
Dim ExcelFileName As String
ExcelFileName = ThisWorkbook.Name
For Each objWorksheet In ThisWorkbook.Worksheets
ExcelFileNameWithoutExtension = RemoveExtension(ExcelFileName)
浏览 8提问于2011-01-18得票数 1
2回答
我有一个包含2个工作表的Excel工作簿。VBA代码会将CSV文件加载到第一张图纸中。然后，VBA代码将第一张图纸中的数据绘制到第二张图纸中的图表中。此VBA代码每5秒运行一次，并导致图表闪烁。
有谁有什么建议来防止闪烁吗？我试过了
Application.ScreenUpdating = False
而且它也没有帮助。
浏览 16提问于2015-04-08得票数 0
请帮帮忙。我只想使用Excel VBA将其他12个工作表(不是原始的所有工作表)中的一个‘MainFinal’复制到另一个.xls文件中。我在下面附加的代码工作正常，除了它会复制所有工作表，而不是只复制一个工作表，而且当创建新文件时，它会打开并关闭源文件。有人有什么建议吗?我的代码有什么问题？我尝试了工作表、工作表、活动表的各种组合，但都没有成功)？
Sub CopyMainFin()
'
' CreaMainFin Macro
'
Dim LastCopyRow As String
Dim MyStr As String
MyStr = Format(Date, &#
浏览 1提问于2010-03-06得票数 1
我想合并多个工作簿中的所有工作表，并将它们保存在一个excel文件中。我正在尝试复制一个工作簿中的所有工作表，然后将该工作簿保存到一个文件。问题是-只有最后一张表保存在文件中。下面是一些示例代码。
public static void ExportSheets(string documentFilePath, List<IWorkbook> workbooks)
{
if (workbooks.Count > 1)
{
var destinationSourceBook = wor
浏览 16提问于2018-08-07得票数 1
回答已采纳
我正在尝试将excel工作表的文件夹另存为.csv。但是，我只能保存活动工作表的.csv。是否可以指定这些excel文件文件夹中的哪一张工作表是我想要额外添加的？
非常感谢！
我应该将sheetname放在代码中的什么位置，以指定循环应该只针对该特定的工作表发生？谢谢!
'Loop through each Excel file in folder
Do While myFile <> ""
'Set variable equal to opened workbook
Set wb = Workbooks.Open(Filenam
浏览 0提问于2018-12-03得票数 0
2回答
我需要通过一个VBA/VBS脚本来编程，将所有工作表(总共4个，我知道名称)导出到同一个文件夹中名为csv文件的工作表中，而不需要加载excel并手动运行宏。
理想情况下，脚本将接受源filepath/filename.xls和导出filepath作为命令行参数。
我读过许多Excel脚本，用于在Excel中这样做，我还看到了一些用于加载excel工作簿以导出第一个工作表的脚本。但是，当我试图将两者混合时，我会得到以下错误：
(1,12)预期报表结束
Dim source As Workbook
Set source = Application.Workbooks.Open(WScri
浏览 3提问于2011-12-08得票数 6
回答已采纳
我有一个Excel2010电子表格，其中定义了一个XML映射。使用Perl，我想将工作表保存为XML数据。我不需要导出XML映射文件。在Excel中，我可以选择“文件>另存为>另存为类型: XML数据”。这是我想要创建的输出，但是来自我的Perl脚本。
我可以使用带有enum 6的SaveAs命令以CSV格式输出工作表。我也可以使用带有枚举46的SaveAs以XML格式输出电子表格，但这不是我想要的。我只需要XML数据..
感谢您的帮助。
use strict;
use warnings;
use Win32::OLE qw(in with);
use Win32::OLE::C
浏览 1提问于2013-01-28得票数 2
回答已采纳
1回答
井。我有完整的宏观数据。我必须向工作簿中添加一个Workbook_Open vba脚本。但是使用较低的代码，就可以将代码添加到模块部分。我必须将vba代码添加到“此工作簿”部分。
井。对xlsm数据使用vbaProject.bin可能更好。但我认为这在xlswriter库中是可能的。这个库不能将vba添加到现有的xlsm中:(
有人能帮我吗？
# set file paths and macro name accordingly - here we assume that the files are located in the same folder as the Python s
浏览 5提问于2021-04-21得票数 1
回答已采纳
我将数据复制到电子表格中，使用VBA对其进行格式化，然后将该表保存到CSV文件中。
我使用以下代码：
ws.SaveAs Filename:=filestr, Fileformat:=xlCSV
ws是我保存的工作表。
这给了我一个逗号分隔的CSV文件。
我想把那个工作表保存到一个分号分隔的文件中。
我发现了以下情况：
转到Start>Settings>Regional和语言选项
单击自定义按钮
在一个分号(;)中列表分隔符类型的旁边
我遵循了上述步骤，并将代码更改为：
ws.SaveAs Filename:=filestr, Fileformat:=xlCSV
浏览 13提问于2012-11-21得票数 16
我有一个VBA，连同许多其他东西，将一个excel工作簿保存到SharePoint (我认为是企业2010 )，它大部分时间运行良好，但在用户运行VBA时，Excel会冻结，弹出显示“获取可用内容类型和属性的列表.”。如果用户选择取消另一个弹出，则出现“运行时错误'1004'：对象'_Workbook‘的方法'SaveAs’失败。如果用户选择”Debug“，则VBA的最后一行突出显示为创建错误。
Dim fileName As String
Dim excelDirName As String
fileName = [c9]
excelDirName = [c
浏览 7提问于2016-11-10得票数 0
回答已采纳
双击数据透视表GrandTotal数据将创建一个包含整个数据源的单独工作表。想要通过powershell完成这件事。下面是我用Powershell 5.1尝试过的代码。
$excelFile = "C:\test\Testfile.xlsb"
$Excel = New-Object -ComObject Excel.Application
$wb = $Excel.Workbooks.Open($excelFile)
$s=$wb.worksheets(1).range("C7").select
$s.showdetail
$wb.saveas("C:\
浏览 5提问于2021-02-04得票数 0
回答已采纳
2回答
存储过程将运行15分钟，并冻结Excel文件。如何通过VBA在后台运行存储过程，让它在后台运行，并在同一张工作表上继续工作。
浏览 29提问于2019-06-03得票数 1
我有一个非常具体的问题:我有一封用Word写的信和一张Excel中装满数据的工作表。我需要在Word中使用工作表的数据进行邮件合并。问题是:每个邮件合并都必须保存为不同的Word文件，而且每个文件都必须使用邮件合并中使用的数据中的名称保存。
因此，例如:我的Excel有一个表，其中有3列，名为Name、Name、生日。这个表有10行。我需要把邮件合并到Word中，包括名字、姓氏和生日。每个邮件合并必须保存在不同的文件(因此，在最后，我们将有10个文件，每一行一个)。每个文件都必须命名为从邮件合并中提取的相对姓氏。
我在网上找到了这个VBA代码，并在Word中进行了尝试：
' Modul
浏览 4提问于2022-03-24得票数 0
回答已采纳
我可以在一张工作表中创建一个excel文件，并在第二张工作表中使用一个按钮来运行宏。我需要的是在同一张工作表中同时包含来自数据框的数据而不是按钮。
这是我发现的代码，我试图修改它：
import pandas as pd
import xlsxwriter
df = pd.DataFrame({'Data': [10, 20, 30, 40]})
writer = pd.ExcelWriter('hellot.xlsx', engine='xlsxwriter')
worksheet = workbook.add_worksheet()
#d
浏览 13提问于2020-03-11得票数 1
1回答
将工作簿中的一张工作表保存到CSV文件时遇到问题。我在一个工作簿中有18张工作表。每次运行宏时，它都会保存一个不同的工作表。我还需要它，以便显示警报不会弹出。我是一个VBA和运行宏的初学者，所以任何帮助都将不胜感激。
Sub csvfile()
'
' csvfile Macro
'
'
ChDir "C:\Users\RM\Documents"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\RM\Documents\Working_Program\PSSE
浏览 18提问于2017-07-21得票数 1
回答已采纳
如何将整个Excel扩展表按值快速复制到另一个Excel扩展表？以及如何通过值将Excel扩展表的某些页快速复制到另一个Excel扩展表中？不使用VBA ()。
例如:假设我有一个名为Excel_A的扩展表，它包含多个表和许多公式。我想快速复制Excel_A的所有值。我想避免把一张一张地复制到另一张纸上，因为它太慢了，而且Excel_A中有很多张。
浏览 2提问于2017-04-05得票数 0
回答已采纳
我用C#复制并粘贴了一个Excel工作表。(为此我使用了Microsoft.Office.Interop.Excel ) 代码如下： Excel.Application app = new Excel.Application();
Excel.Workbook wb = app.Workbooks.Open(path);
Worksheet ws = wb.Worksheets[4];
Range us = ws.UsedRange;
us.Copy();
Worksheet ws2 = wb.Worksheets.Add();
ws2.Paste();
wb.SaveAs(Filename
浏览 34提问于2019-09-24得票数 1
回答已采纳
3回答
我在一张纸上创建多个图表。假设我有一个工作表“工作表1”，在这个工作表上我创建了10个图表，名称从“图表1”到“图表10”。但问题是，当我单击名称框时，所有图表的列表在该名称框中不可用。谁能帮我解决如何通过简单的excel或excel VBA做到这一点。
浏览 1提问于2011-11-23得票数 1
1回答
我有一张带有marco的工作表(来自excel vba)：
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
...
End Sub
它可以正常工作。
但是，在我将工作表复制到新工作表后，新工作表将失去宏。
因此，我尝试写一个双击的工作表事件，并写一个马尔科来复制工作表和事件。
Sub CopySheetWithEvents()
浏览 4提问于2016-04-12得票数 0
现在，我正在尝试用VBA将excel工作表保存为一个以.txt为扩展名的以管道分隔的unicode文件。
我已经想出了如何将它保存为unicode，代码如下
ActiveWorkbook.SaveAs FileName:=FileName, _
FileFormat:=xlUnicodeText
但这会将其保存为制表符分隔。我似乎找不到MSDN的选项，因为他们在上的页面没有多大帮助。
浏览 2提问于2012-10-12得票数 0
我有一个文件夹，里面有111本excel工作簿。我想把每个文件复制并粘贴到一个excel文件中，放到单独的工作表中。因此，一个工作表应该包含一个文件的内容。每个文件只包含一张图纸。任何想法都会有所帮助，因为我对VBA不是很熟悉。我不想复制和粘贴111次。
谢谢。
浏览 4提问于2011-08-16得票数 0
1回答
我是Microsoft VBA的新手，修复Excel宏时遇到了麻烦。
这个宏的目的是，当按下一个按钮时，它会自动将活动的工作表保存到一个文件中，但它不工作，我不知道为什么。
在我看来这是对的。
Sub Save()
'
' Save Macro
'
Sheets("My_sheet").Select
ChDir "C:\my_file"
ActiveWorkbook.SaveAs Filename:=Range("B6"), FileFormat:=xlOpenXMLWorkbookMacroEnabled
浏览 24提问于2016-09-22得票数 1
回答已采纳
3回答
我完全在Excel的VBA中工作。我的解决方案必须完全是程序化的，而不是用户驱动的。解决方案的要求是用户启动一个宏来获取工作簿，并将8个工作表保存到单独的CSV文件中，保留公式并丢弃公式分辨率。我有一组工作表(sht)，我反复遍历它们，并保存它们。下面的代码完美地做到了这一点。
For i = LBound(sht) To UBound(sht)
If (SheetExists(csv(i))) Then
Sheets(sht(i)).SaveAs _
fullpath & csv(i) & ".csv",
浏览 6提问于2012-02-29得票数 5
回答已采纳
1回答
我是第一次涉足Excel Interop，在经历了一个飞跃式的开始后，我遇到了麻烦。
我有一个Excel模板，其中一张是评估表，另一张包含如何执行评估的指导说明。
我还有一个XML文件，其中包含正在评估的项目的详细信息。
我需要将项目标题、应用程序编号和公司名称合并到第一个工作表中，然后使用文件名application No - project Title.xlsx保存该工作表。
第一部分运行得很好。我已经加载了XML，并且代码正在将数据放入它应该在的表单中。
我的问题是保存部分。我找到了.SaveAs方法，它创建了几个文件...但是他们打不开。然后我得到了一个HRESULT错误0x800A0
浏览 0提问于2011-04-12得票数 0
回答已采纳
我在excel中有一个工作簿，它有一个累积的工作表数。我知道excel文档会打开到最后一张纸上。但是，它们是否是每次向同一页打开工作簿的一种方法？(如果我需要使用VBA，没关系)预先感谢您的帮助。
浏览 1提问于2016-08-04得票数 1
回答已采纳
我有一个WorkBook("SOURCE")，包含20张左右。
我只想使用Excel将一个特定的工作表复制到另一个Workbook("TARGET")。
请注意，“目标”工作簿还不存在。应该在运行时创建它。
使用的方法-
1) Activeworkbook.SaveAs <-不起作用。这将复制所有的床单。我只想要一张具体的单张。
浏览 2提问于2013-11-27得票数 16
回答已采纳
1回答
我想要一个VBA代码。
我有一个.xlsm文件，其中我想将一个工作表保存到一个新的工作簿中。
我还想防止excel提醒我将要丢失的数据(因为im从宏excel切换到逗号分隔的值表)。
我希望excel提示的是一个MSGBox请求新文档的文件名，或者用一个特定的单词和当前月份和年份的(示例月YYYY)进行保存。
我希望能够将类似"TEST“的内容保存为"text.csv”，并将其保存在与正在运行的工作簿相同的文件夹中。
我的代码是：
Private Sub Save_Click()
ThisWorkbook.Sheets("Carriers").Copy
App
浏览 6提问于2017-09-18得票数 0
1回答
需要将excel数据转换为XML格式。
'vba code to convert excel to xml
Sub vba_code_to_convert_excel_to_xml()
Set wb = Workbooks.Open("C:\temp\testwb.xlsx")
wb.SaveAs fileName:="C:\temp\testX.xml", FileFormat:= _
xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False
请让我如何在VBA
浏览 10提问于2021-06-04得票数 0
回答已采纳
我正在做我的第一步在excel 2007 vba。我想要做的是编写一个宏，比较我上一张和第二张excel工作表，并突出显示最后一张表中的差异。如下面所示，我编写了以下代码，当我使用调试模式时，Excel不会显示任何错误，但是它不会标记任何已经进行更改的单元格，这应该是应该这样做的。如果有人介意看一看并纠正我在下面代码中的潜在错误。非常感谢。
Sub compare()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim rCount As Long, cCount As Long
Set sh1 = Worksheets(Sheets.Count - 1)
S
浏览 6提问于2014-10-01得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
