はvba関数がファイルを開くのに優れていますか？私は、.xls形式としてファイルを保存するための関数を定義しています

Question

：

Public Function save_as_xls(full_file_path As String) As String 
    save_as_xls = "" 

    Dim src_file As Workbook 
    Set src_file = Workbooks.Open(full_file_path) 
    src_file.SaveAs filename:=full_file_path, FileFormat:=xlExcel8 
    src_file.Close 

    save_as_xls = "OK" 
End Function 

その後、しかし、それは動作しません、src_fileはWorkbooks.OpenからNothingを取得=save_as_xls("c:\temp\test.xls")

としてExcelのセルの数式でそれを呼び出します

ファイルを開くことができないvba関数には制限がありますか？私はそれが他の細胞に書き込むことができないことを知っているだけです。

Answer 1

Excel UDFには一定の制限があるため、ブックを保存することはできません。次のコードに示すように、後でバインドされたExcelのインスタンスを使用して回避策を試すことができます。

標準モジュールにこのコードを入れてください：

Public objExcel As Application 

Public Function SaveAsXls(FilePath As String) As String 

    If objExcel Is Nothing Then 
     Set objExcel = CreateObject("Excel.Application") 
     With objExcel 
      .Visible = True ' for debug 
      .DisplayAlerts = False 
     End With 
    End If 
    With objExcel 
     With .Workbooks.Open(FilePath) 
      .SaveAs _ 
       Filename:=FilePath, _ 
       FileFormat:=xlExcel8 
      .Close True 
     End With 
    End With 
    SaveAsXls = "OK" 

End Function 

をThisWorkbookセクションにこのコードを入れてください：だからあなたは=SaveAsXls("c:\temp\test.xls")