Tag: 另存为

Saveas的function非常好。与单元格的名称: 我正在尝试使下面的代码工作，以保存某种格式的文件名。我希望它保存在打开文件的文件夹中，文件会将其名称更改为新的月份名称。我已经得到了大部分工作，如目录select和文件名，并保存，但是，如果已经有一个同名的文件，或者如果有人select否或取消它会给出一个错误。我尝试了各种方法试图绕过它，但现在我无所适从。我有两个代码，他们都应该做同样的事情，只是变化。 Sub saving1() ' Saves the file under a new name based on the new month date. Dim NewFilename As String Dim tempnm Dim loc ' variable for file location loc = Application.ThisWorkbook.Path 'loads the file location on the loc variable MsgBox loc ' creates the file name for saving includes […]

VBA条件另存为date添加: 我正在使用Excel 2010，并试图使用以下macros：打开另存为对话框取最初的文件名，并检查在文件types（即.xlsx）之前是否有下划线，后面跟着8个连续的整数（即_12345678）如果确实存在，则在文件types（即.xlsx）之前删除并用“yyyymmdd”格式（即_20130730）的下划线后面加上今天的date，如果不存在，只需在文件types（即.xlsx）之前以“yyyymmdd”格式（即_20130730）添加下划线，基于上述条件的新文件名将出现在打开的“另存为”对话框的“文件名”字段中，但该文件将要求用户实际保存它（只是命名和打开“另存为”，实际上不是用VBA保存）保持原始文件types 假设今天的date是2013年7月30日，macros将按以下方式工作： 1.） testing文件A_20130615.xlsx将成为testing文件A_20130730.xlsx 2.） testing文件B.xlsx将成为testing文件B_20130730.xlsx 任何和所有的帮助表示赞赏！谢谢

另存为默认path: 我有一个macros在我的Excel中，当我使用.SaveAs在所述的macros，它会自动保存文件在我的文档（当我不指定path）我真的不想指定一个path，我只是希望它将结果文件保存在excel书所在的directoy中。 inheritance人保存代码： fnameandpath = InputBox("Please Enter A New File Name") If fnameandpath = Empty Then 'warn user Else ActiveWorkbook.SaveAs fnameandpath Range("A1").Activate End If 例如，我把我的excel文件放在桌面上。当popup的框中input“TestFile”，然后在my documents获取xlsm文件，而不是在桌面上。为什么？我可以更改该默认行为吗？ msdn说它保存到当前位置。

Excel VBA，分页工作表，分页保存为PDF，以及基于值的自动调用: 我刚刚开始掌握一些基本的vba，并已经使用下面的代码将一个大的工作表分成单独的xls文件，在这里find了一个分页符（已经使用小计函数插入）。此代码还根据单元格中的值命名每个文件。 Sub Sample() Dim rowCurrent As Long, rowPrevious As Long, i As Long Dim oWB As Workbook, newWbk As Workbook Dim oWS As Worksheet Set oWB = ActiveWorkbook Set oWS = oWB.Sheets("Specials") rowPrevious = oWS.UsedRange.Row + oWS.UsedRange.Rows.Count – 1 For i = oWS.HPageBreaks.Count To 0 Step -1 If i = 0 Then oWS.Rows("1:" & […]

如何使用Excel VBA将新工作簿另存为原始工作簿目录？: 基本上，我想将一些工作表保存到与原始笔记本相同的系统位置的单独的新工作簿中。我认识到，默认path是保存新的东西到当前笔记本的位置，但也许因为我打开一个新的工作簿默认恢复到用户的文档文件夹，这是他们现在保存的位置。在过去的几天里，我“学会了”VBA，所以对于你注意到的其他事情的build议也是很酷的，但是saveas是困扰着我的东西。 Dim ws As Worksheet Dim wb As Workbook Dim dept_array As Variant Dim dept As Variant ' Add or remove a department name spelled exactly as it is in the filter dept_array = Array("HR", "IT", "Marketing", "Product Marketing", "Sales", "Channels", "Presales", "Direct", "Sales Ops", "R&D", "Support", "G&A") Application.ScreenUpdating = False For Each […]

将XLSM文件保存为任何文件名，格式和目录: 我正在寻找一个macros来保存当前打开的XLSM文件，而不是以下条件的XLSM文件。我希望能够以任何名称保存文件。我希望能够以任何格式保存文件。我希望能够select保存的目录。所以基本上我想能够保存文件，就像我会做一个正常的另存为文件，而不使用macros。我已经看到了一些不同的macros，这些macros执行我的请求的一部分，但没有任何条件。

VBA ActiveWorkbook.Saveas运行时错误1004: 我是VBA新手，试图从ws复制到wscsv，并将后者保存为.csv文件。以下是我的子例程。我遇到：运行时错误1004：应用程序未定义在这一行： ActiveWorkbook.SaveAs Filename:=savedirectory, FileFormat:=xlCSV, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges csvworkbook = ActiveWorkbook.Name 我的代码 Sub AddNewWorkbook1(ws As Worksheet) ws.Activate MsgBox ("adding new workbook for" & ws.Name) Dim wscsv As Excel.Workbook Dim savedirectory As String Dim currentworkbook As String Dim csvworkbook As String currentworkbook = ws.Name savedirectory = '/Users/Desktop/Magnum/' & currentworkbook Dim lrow As Long lrow = […]

string中的正确函数（Excel 2007 VBA）: 好的：我正在处理Excel中的一个macros'07，它将导入文件，删除数据，进行必要的格式更改，然后用指定的文件名将文件保存到networking驱动器，只需单击一下即可。一切工作，但最后一部分。我试图将文件保存为paystatusMMDD.xlsx，其中MMDD是单元格（L2）中的最后4个字符。但是，我不能，为了我的生活，得到正确的function正常工作。那么我做错了什么？我相信这很明显，但我无法弄清楚。以下是代码的相关部分： Dim Path As String Dim FileName1 As String Dim FileName2 As String Path = "G:\HRO\PSM\PAYSTATUS\" FileName1 = "paystatus" FileName2 = Right(L2, 4) ActiveWorkbook.SaveAs Filename:=Path & FileName1 & FileName2 & ".xlsx", FileFormat:=xlNormal End Sub

强制是保存并保存为免费工作簿: 我制作的macros将模板工作簿保存为两个单独的文件。每个testing（位置1,2,3或4）保存一个，然后在另一个macros中使用来自每个testing的数据。第二个是保留备份的原始数据文件。现在的问题是每次我运行testing每个位置，运行这个macros，它问我是否要保存在以前的testing。我怎么能告诉它与出问题说是。同样的我想要保存这个工作簿作为一个macros免费的工作簿。我必须把我的代码放在哪里，我应该把它放在哪里？任何帮助，非常感谢。谢谢解决代码： Sub Auto_Open() With Range("A30") .Value = Time .NumberFormat = "h-mm-ss AM/PM" End With Dim FileName As String Dim FilePath As String Dim FileDate As String MyNote = "Is Cell 'B27' Overview Information" & SavePath & " Location1,2,3,or 4?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo) If […]

Excel VBA .Saveas（）函数预先格式化: 我试图使用下面的saveas（）函数来输出一个Excel工作表到一个xltext文件。该文件生成正常，但具有＃，###。00特殊格式的数字。输出为“1,000.00”，而不是只输出1,000.00。我怎样才能删除这些双引号。 Dim tab_output_line, tab_output_head, tab_source As String Dim File_Location As String tab_output_line = "Upload_PO_LineItem" tab_source = "PBOOK" File_Location = Sheets(tab_source).Range("S5").Value Sheets(tab_output_line).Select ChDir File_Location ActiveWorkbook.SaveAs Filename:= _ File_Location + tab_output_line + ".txt", FileFormat:=xlText, _ CreateBackup:=False