我正在尝试使用 Excel 2010 在 VBA 中编写一个宏,该宏链接到工作表中的按钮(位于单元格 A1 中)。按下按钮时,应生成删除 A 列和 B 列的 CSV,以便 C 列有效地变为 A 列。我还尝试根据工作表中单元格 A30 中的单元格内容命名新生成的 CSV,但是当我运行宏时,我在 SaveAs 函数上遇到错误。我相信这是因为稍后在脚本中删除了单元格 A30。我的问题是有什么方法可以使用范围 (A30) 来命名新的 CSV,同时稍后仍会在同一子文件中的新 CSV 中删除该单元格?我还是 VBA 的新手,所以我不清楚为什么当我认为每个命令都是按顺序执行时这是一个问题,所以一旦用新名称保存了 CSV,
Sub rpSaveCSV()
Dim ws As Worksheet
Set ws = ActiveSheet
'Saves current sheet of tracker as a CSV
ws.SaveAs "Y:\Drive\Youth " & Range("A30") & " .csv", FileFormat:=xlCSV
'Copies entire sheet and pastes values to get rid of formulas
ws.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Select
Application.CutCopyMode = False
'Deletes first two columns and all remaining columns without content
Range("A:B").EntireColumn.Delete
Range("BI:XFD").EntireColumn.Delete
'Saves panel CSV
ActiveWorkbook.Save
'Opens Tracker up again
Workbooks.Open Filename:="Y:\Drive\Tracker.xlsm"
End Sub
声明一个变量来保存字符串值:
Dim filename as String
filename = Range("A30")
'verify that "Y:\Drive\Youth " & filename & " .csv" is a valid file name:
Debug.Print "Y:\Drive\Youth " & filename & " .csv" ' looks right? Ctrl+G to find out
ws.SaveAs "Y:\Drive\Youth " & filename & " .csv", FileFormat:=xlCSV
'...delete columns...
'...do stuff...
Debug.Print filename 'value is still here!
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句