ACCESSからEXCELへのオートメーション操作
ACCESSからEXCELへのオートメーション操作について質問させて下さい。
以下のようにコードを書きましたが、エラーに飛んでしまいます。
また、EXCELファイルは出来ているのですが、データがきちんと出力されません。
解決手段をご教授して下さい。
宜しくお願いします。
Private Sub コマンド39_Click()
On Error GoTo エラー_Err
DoCmd.TransferSpreadseet acExport, acSpreadsheetTypeExcel8, "営業報告", "C:\営業日報.xls", True
Dim objEXE As Object , Dim wk_excel As Object, wk_book As Object
Dim wk_file As String
wk_file = "営業日報"
Set objEXE = Excel.Application
objEXE.Workbooks.Open ("C:\営業日報.xls")
wk_excel.Sheets(wk_file).Columns("C:C").Select
wk_excel.Sheets(wk_file).Open.Columns("E:E").ColumnWidth = 10
With Selection
.Formula = .Value
End With
wk_excel.Sheets(wk_file).Range("A1").Select
Exit Sub
エラー_Err:
MsgBox "エラーです"
エクセル_Exit:
Exit Sub
End Sub
お礼
すごい！！ありがとうございました！！！できました～♪♪ 本当にありがとうございました☆助かりました(*^-^*)♪