DOBON.NET DOBON.NETプログラミング掲示板過去ログ

EXCEL保存について

分類:[.NET]

EXCELにデータを送り、表作成等はできたのですが、ファイル保存の方法が分かりません。SaveAsを使えばできると思うのですが、ソースの書き方が分かりません。どなたか、ご教授願えないでしょうか?お願いします。
SaveAsにファイル名のフルパスを設定するだけで保存できました。
パラメータの詳細は、
http://www.microsoft.com/japan/msdn/columns/office/office01042001.asp


Private Function Func_intExcelOpenClose(ByVal pi_strOpenPath As String, _
ByVal pi_strSavePath As String) As Integer
'<引数>
'pi_strOpenPath : 開くファイルへのフルパス、省略時は新規作成
'pi_strSavePath : 保存するフルパス
Dim myExcelApp As Excel.Application
Dim myExcelWorkBook As Excel.Workbook
Try
myExcelApp = GetObject(, "Excel.Application")
Catch ex As Exception
Try
myExcelApp = CreateObject("Excel.Application")
Catch ex2 As Exception
Func_intExcelOpenClose = Err.Number
myExcelWorkBook = Nothing
myExcelApp = Nothing
Exit Function
End Try
End Try
'ファイルを開く
Try
If pi_strOpenPath.Equals("") Then
'新規
myExcelWorkBook = myExcelApp.Workbooks.Add
Else
myExcelWorkBook = myExcelApp.Workbooks.Open(pi_strOpenPath)
End If
Catch ex As Exception
myExcelWorkBook = Nothing
myExcelApp = Nothing
Func_intExcelOpenClose = Err.Number
Exit Function
End Try

'いろんな編集処理

'ファイルを保存
Try
myExcelWorkBook.SaveAs(pi_strSavePath)
Catch ex As Exception
myExcelWorkBook = Nothing
myExcelApp = Nothing
Func_intExcelOpenClose = Err.Number
Exit Function
End Try

myExcelWorkBook = Nothing
myExcelApp = Nothing

Return 0
End Function
■No894に返信(fukuさんの記事)
fukuさん、ご返事ありがとうございました。
EXCEL保存できました。どうもありがとうございます。助かりました。

DOBON.NET | プログラミング道 | プログラミング掲示板