使用macros从单元格中将文件名保存为CSV工作表
我有一个macros保存了我的工作簿的一个副本,但它保存为.xlsm,我需要它被保存为逗号分隔.csv文件types可以帮助我吗?
这里是我现在的macros
Sub toCSV()
Dim newWB As Variant Dim wb1 As Workbook Set wb1 = ActiveWorkbook With wb1 .SaveCopyAs ("C:\Users\sales\desktop\") & Range("A2").Text & ".xlsm" End With End Sub
码:
.SaveAs Filename:=("C:\Users\sales\desktop\") & Range("A2").Text & ".csv", _ FileFormat=:xlCSV
此代码会将要保存的工作表格保存为CSV,并在保存之前将其复制到新的工作簿中
Dim CSVBook As Workbook Set CSVBook = Workbooks.Add ThisWorkbook.Sheets("TheCSVSheet").Copy Before:=CSVBook.Sheets(1) CSVBook.SaveAs Filename:="C:\tmp\test.csv", FileFormat:=xlCSV CSVBook.Close
这将允许您将文件保存为CSV文件,但仍然保留原始的启用macros的电子表格,您可以返回该文件,并执行您所需的任何其他处理
尝试添加到您的代码:
FileFormat:=xlCSVMSDOS
并将“.xlsm”更改为“.csv”
我也强烈build议你在这里寻找有关储蓄的未来问题!