Tag: 保存为

用另一个文件名保存打开的工作簿（另存为）: 我有一个我运行的脚本，在代码中命名的文件夹中打开一个xls文件（不pipe文件名），然后用一个新名字保存该文件。直到昨天一直工作正常。我现在得到一个VBScript运行时错误，说需要的对象：'wb' 什么是错误的任何想法将不胜感激。 'Opens Excel Set app = CreateObject("Excel.Application") 'sets variable to Division Market Share Report v2.0.xls strPath_Excel = "C:\Users\DSO7761\Desktop\Ideas\Market Share Report Automation\Market Share Reports\Division Market Share Report v2.0.xls" 'Opens Division Market Share Report v2.0.xls Set objWB2 = app.Workbooks.Open(strPath_Excel) app.Visible = False app.DisplayAlerts = False 'This section opens files with "xls" extension in […]

保存特定的文件名和格式: 我想问你的这个代码的帮助： Option Explicit Private WithEvents App As Excel.Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) App.EnableEvents = False With App.Dialogs(xlDialogSaveAs) Call .Show(MakeDocName, xlOpenXMLWorkbookMacroEnabled) End With App.EnableEvents = True Cancel = True End Sub Function MakeDocName() As String Dim theName As […]

Excel VBA Saveas函数破坏文件: 当我尝试使用ActiveWorkbook.Save函数保存我的文件时。该文件得到损坏，我不能再使用它了。我已经尝试了ActiveWorkbook.SaveCopyAs函数，但结果是一样的。下面的例子。我已经添加了底部使用的2个其他function。 Sub Publish_WB() Dim ws As Worksheet Dim cell As Range Dim CurrentPath, OriginalFname, NewFname, FName As String If CheckPublished() Then MsgBox ("Published version, feature not available …") Exit Sub End If NoUpdate PublishInProgress = True 'Save the Current Workbook OriginalFname = ActiveWorkbook.Path & "\" & ThisWorkbook.Name 'Store the current path […]

SaveAs命令不起作用，但SaveCopyAs: 使用SaveAs命令正常工作时遇到了很多困难。对于本地医院，有一个病人图表是从一个模板文件创build的，在这个图表中input患者数据，然后手动重命名（使用save-As），然后复制到另一个位置作为备份。该模板重复使用一遍又一遍。我的代码的目标是这个自动化这个过程。所以我想保存到两个不同的位置，从一个模板文件开始。模板文件不应该被覆盖。在模板中，用户分别在单元格K1和N1中设置部门名称和床位号码。这些字段确定该文件夹中的文件夹和文件名。当按下保存button时，我的代码开始运行。我使用SaveCopyAs保存备份文件，之后我想使用SaveAs保存到我的主文件夹。另存为应该将这个新文件设置为我的工作文件，因此不能覆盖我的模板。至less这是我相信的… 问题：运行SaveAs ，Excel崩溃（没有任何明确的错误信息）。奇怪的事情（对我来说）是，当我用SaveCopyAsreplaceSaveAs时不会崩溃。问题：为什么Excel会在这个时候崩溃？有没有办法来解决或避免这种行为？我找不到一个合适的解决scheme，不会改变我的模板。任何帮助或build议都比欢迎。下面的代码放在我的“ThisWorkbook”文件夹中，每次点击“保存”button时执行。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) department = Range("K1").Value 'Name of department: CHIC, THIC, ICB or NCIC bedNumber = Range("N1").Value 'bednumber or roomnumber: Bed 1. Bed 2 or Room 1, Room 2. […]

是否有可能使保存button（不保存为button）将文档保存在特定的path？: 我想在VBA excel中为我的validation程序做保存button。保存button将文件保存在一个spesicicpath中并自动重命名为文档的状态（清除或错误）。如果文件仍然保存错误，文件将被命名为error.xlsm 但是，当我修复文档的错误。该文件将被命名为clean.xlsm。我很讨厌手动删除第一个文件（error.xlsm）。有没有可能使保存button保存（不保存为button）保存文件在特定的path，而不使用另存为？这是我的代码： Private Sub CommandButton2_Click() ActiveWorkbook.SaveAs Filename:="D:\" & Sheets("C").Range("G23").Text & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub *注意： Sheets("C").Range("G23").Text包含文档的状态（如果公式是干净的或者错误的）

对话框将文件保存为现有脚本: 我有下面的代码，但我试图让它提示用户使用dynamic对话框来获取输出文件“另存为”。 $pathtsv = "c:\test.txt" $pathxlsx = "c:\NBP ESP-152 REV F TEMPLATE.xlsx" $Excel = New-Object -ComObject "Excel.Application" $Excel.Visible=$true $Workbook = $Excel.Workbooks.Open($pathxlsx) # Open Template $TempWorkbook = $Excel.Workbooks.Opentext($pathtsv) # Open text file in excel $temp = $excel.Workbooks.Item(2) #select workbook with text $temp = $temp.Worksheets.Item(1) #select text worksheet $CopyRange = $temp.Range("A1:G8") #set range $CopyRange.Copy() #copy data $workbooksheet = […]

vb.NET另存为不保存所有的Excel数据: 我有一个很奇怪的问题，我似乎无法find在线答案。我有一个VB.NET应用程序，创build一个Excel的数据（总计约42,542行），并将文件保存到文件夹位置，并在屏幕上为用户打开它。屏幕上的版本和文件夹版本只显示16,372行数据，如正在被切断。当我通过debugging，我可以看到所有的行正在添加，如果我手动保存debugging所有的行保存。有些数据似乎在系统保存中丢失。我正在从4个logging集中获取数据，并在Excel表单上为每个块依次写入每个集合的特定标题。我的保存行是： xlWBook.SaveAs(Filename:=sFileName, FileFormat:=Excel.XlFileFormat.xlExcel7) 请问任何人有什么想法，这可能是什么？

将.xlsx另存为vba中的不同目录: 我正在尝试使用SaveAs方法将.csv文档保存为.xls文档。但是，当我尝试指定文件夹时，它失败。例如，它将保存到某个默认目录（我的文档，这不是我准备好的地方）： Sub csv() Workbooks.Open Filename:="directory/tmp.csv" ActiveWorkbook.SaveAs Filename:="test.xlxs", FileFormat:=51, CreateBackup:=False End Sub 但是这个失败了： Sub csv() Workbooks.Open Filename:="directory/tmp.csv" ActiveWorkbook.SaveAs Filename:="otherdirectory/test.xlxs", FileFormat:=51, CreateBackup:=False End Sub 有没有不同的方式来指定目录？

在Excel 2010工作表上使用Perl来保存数据: 我有一个Excel 2010电子表格，里面定义了XML地图。使用Perl我想将工作表保存为XML数据。我不需要导出XML映射文件。在Excel中，我可以select“文件>另存为>另存为types：XML数据”。这是我想创build的输出，但是从我的Perl脚本。我可以使用带有枚举6的SaveAs命令以CSV格式输出工作表。我也可以使用带有枚举46的SaveAs以XML格式输出电子表格，但这不是我想要的。我只想要XML数据.. 似乎有一个SaveAsXMLData函数，但我无法得到它的工作。任何帮助赞赏。 use strict; use warnings; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE::Variant; use Win32::OLE::NLS qw(:LOCALE :DATE); $Win32::OLE::Warn = 3; # Die on Errors. my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); $Excel->{DisplayAlerts}=0; my $excel_file = 'c:\\temp\\master.xlsx'; my $csv_file = 'c:\\temp\\master.csv'; my $xml_file = 'c:\\temp\\master.xml'; […]

excel文件保存为: 即时通讯能够通过PHP输出一个Excel文件，并在Excel中正确打开。那里没有问题。当用户clicsk保存在Excel中它带有第一个选项.txt我如何设置标题，所以第一个选项将保存为.xls。现在使用的头像： $filename="jaar.xls"; header("Content-Type: application/vnd.ms-excel"); header("Content-Disposition: attachment; filename=$filename"); header("Pragma: no-cache"); header("Expires: 0"); 提前致谢