我使用* .asc文件打开,重新格式化,然后另存为与原始文件同名的Excel文件(带有xls扩展名)。将* .asc文件保存为Excel文件
我用宏记录器和我在网上找到的代码打开个别文件并根据需要重新格式化它们。代码的那部分起作用。
我无法保存为Excel文件。它给了我Run Time error of 1004 Method ‘SaveAs’ of object ‘_Workbook’ failed。我尝试了很多我在网上找到的不同代码(仍然在那里,只是注释掉了),但都没有工作。
两个问题:
你能提供的建议来解决问题另存为?
您能否提供关于如何自动打开和保存一个文件夹中所有文件的建议?
这里是我的代码:
Sub OpenFormatSave()
'
' OpenFormatSave Macro
'
Dim StrFileName As String
Dim NewStrFileName As String
ChDir _
"C:\Users\Owner\Documents\work_LLRS\GoM\NASA_data\Satellite_files_GoM_3Dec2012"
StrFileName = Application.GetOpenFilename("NASA Files (*.asc), *.asc")
If TypeName(StrFileName) <> "Boolean" Then
Workbooks.OpenText Filename:=StrFileName, _
Origin:=437, StartRow:=1, DataType