VBAでExcel以外のファイルを開いて保存する

Question

ファイルを開いたときにExcelで開くが、Excelファイル自体ではない（開かれたときに変換される）ファイルがある。これらのファイルの情報の一部を別のExcelシートに取り込むことができるようにしたいのですが、Excelファイルではないので、ファイルをリンクすることはできません。

これらのファイルをVBA（Excelファイルとして開く）で開いて永久エグゼクティブファイルとして保存したいので、私が望むように使用できます。ファイルを開くには

、私はこのコードを持っている：

Option Explicit 

Declare Function ShellExecute Lib "shell32.dll" _ 
Alias "ShellExecuteA" (_ 
ByVal hWnd As Long, _ 
ByVal lpOperation As String, _ 
ByVal lpFile As String, _ 
ByVal lpParameters As String, _ 
ByVal lpDirectory As String, _ 
ByVal nShowCmd As Long) As Long 

Function OpenAnyFile(FileToOpen As String) 

Call ShellExecute(0, "Open", FileToOpen & vbNullString, _ 
vbNullString, vbNullString, 1) 

End Function 

Sub OpenFile() 

Call OpenAnyFile("C:\Filename") 

End Sub 

をしかし、私は、このコードでは、今開いているファイルを保存する方法がわからないと思います。あなたにこのコードを配置し、Excel VBEからそれを実行している場合

Answer 1

、あなたはちょうどそう

Dim owb As Workbook 

With Application 
    .DisplayAlerts = False 
    .ScreenUpdating = False 
    .EnableEvents = False 
End With 

fname = "Filename goes here (include .extension)" 
fpath = "Path goes here" 

Set owb = Application.Workbooks.Open(fpath & "\" & fname) 

With owb 
    .SaveAs fpath & "\" & fname & ".xlsx", 51 
    .Close 
End With 

名前を付けて保存のようWorkbook用（hereを文書化）SaveAsメソッドを使用することができるはずですMSDNドキュメントごとなどのパラメータ

表現.SaveAs（ファイル名、FileFormatは、パスワード、WriteResPassword、ReadOnlyRecommended、CreateBackup、ACCESSMODE、ConflictResolution、AddToMru、TextCodepage、TextVisua llayout、local）*