AccessからExcelファイル出力

質問

AccessからExcelファイル出力にあたってデータを書き込む事は出来るのですが、書き込んだ際にExcelのウィンドウにツールバーなど(通常、起動したときに出ているもの。設定によって異なりますが。)を表示させたいのですがどの様に制御したら良いのでしょうか？
説明不足で分かりづらいかもしれませんが宜しくお願い致します。

回答No.3

O_cyan · ベストアンサー

>Excelファイル出力にあたってデータを書き込む事は出来るのですが・・
VBを使って？Excelに出力しているのか不明ですが
出力する記述の後にそのファイルを立ち上げて処理するのではダメなのでしょうか？
例えばC:\a.xlsというファイル名で出力するのであれば出力後に
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\a.xls", 1)
としてa.xlsを起動し処理する。

お礼

すみません解決致しました。
ありがとうございます。

回答No.2

noname#22222

例えば、図形のツールバーを表示するには、Access側で次のように制御します。

Private Sub cmdExcel_Open_Click()
　　Dim ExcelSheet As Object

　　Set ExcelSheet = CreateObject("Excel.Sheet")
　　ExcelSheet.Application.Visible = True
　　ExcelSheet.Application.Cells(1, 1).Value = "Siberianhusky"
　　ExcelSheet.Application.DisplayFormulaBar = False　　　' 数式バーを隠す
　　ExcelSheet.Application.DisplayStatusBar = False　　　　' ステータスバーを隠す
　　ExcelSheet.Application.CommandBars("Drawing").Reset
　　ExcelSheet.Application.CommandBars("Drawing").Visible = True
　　ExcelSheet.saveas "D:\temp\test.xls"
　　ExcelSheet.Application.Quit
　　Set ExcelSheet = Nothing
End Sub

※Access2002+Excel2003で検証済みです。

この要領で、

CommandBars("Standard").Visible=False
CommandBars("Visual Basic").Visible=False

も可能と思います。

お礼

すみません解決致しました。
ありがとうございます。

回答No.1

hikson

おそらく、Excelのツールバーの制御はExcelメニューの表示＞ツールバーでするものであってAccess側ではできないと思います。

お礼

すみません解決致しました。
ありがとうございます。