Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8272 / 9994

←次へ　｜　前へ→


	【4900】Re:既存のExcelファイルにエクスポートす...

小僧 - 05/4/15(金) 12:44 -


	引用なし

	パスワード

▼clike さん：
こんにちは。

すみません。
※要Excelの参照設定　を書くのを忘れていました。

Excelの参照設定を確認してみてください。

以下のようにすると参照設定なしでもうまくいきます。

>Sub xlsOut()
>Dim FSO As Object
>'Dim xlsApp As New Excel.Application
→Dim xlsApp As Object

>'Dim xlsWkb As New Excel.Workbook
→Dim xlsWkb As Object

>Dim MyTBL As String
>Dim MyFile As Variant
>Dim MyDate As String
>Dim MySheet As Variant
>Dim Cnt As Long

→追記
　　 Set xlsApp = CreateObject("Excel.Application")

>'出力するテーブル、出力先ファイルの指定
>　　MyDate = Format(Now(), "m月dd日")
>　　MyTBL = "tempTBL"
>　　MyFile = "c:\temp.xls"

以下略

2,078 hits

▼

【4842】既存のExcelファイルにエクスポートするには にしもり 05/4/7(木) 16:34