我有excel列中的数据,我想提取前7列并将其保存在另一个csv文件中。文件名将采用特定的格式,基于我使用表单和其他细节(如时间戳)从用户收集的信息。如何将Excel中的给定范围保存为csv?
我使用下面的代码:
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = "" '<~~ The start folder path for the file picker.
If .Show <> -1 Then GoTo NextCode
MyPath = .SelectedItems(1) & "\"
End With
NextCode:
With ActiveWorkbook
.SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ThisWorkbook.CheckCompatibility = False
.Close False
End With
但这写入输出CSV中的所有列,并关闭打开XLS(我不想关闭)。
提示拿起文件夹中使用文件时间戳:不是'如果.Show <> -1,则跳转NextCode',你可以做'If .Show = -1然后退出Sub'并避免'GoTo'和行标签。 –