Access VBA質問箱 IV

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

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


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

8325 / 9994

←次へ　｜　前へ→


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

小僧 - 05/4/8(金) 11:18 -


	引用なし

	パスワード

▼にしもりさん：
こんにちわ。
あまり綺麗なコードでないので申し訳ないのですが…

※エクセルとADOの参照設定をしてください。

Sub TEST()
Dim FSO As Object
Dim xlsApp As New Excel.Application
Dim xlsWkb As New Excel.Workbook
Dim MyFile As Variant
Dim Cnt As Long

'出力ファイルの指定
　　MyFile = "C:\新しいフォルダ\回数表.xls"

'存在チェック
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　　　If Not (FSO.FileExists(MyFile)) Then
　　　　　　DoCmd.TransferSpreadsheet acExport, _
　　　　　　acSpreadsheetTypeExcel9, "aa", MyFile, True
　　　　Else

'出力先ファイルにシートを追加
　　　　　　Set xlsWkb = xlsApp.Workbooks.Open(MyFile)
　　　　　　Cnt = xlsWkb.Sheets.Count
　　　　　　xlsWkb.Sheets.Add after:=xlsApp.Worksheets(Cnt)
　　　　　　xlsWkb.ActiveSheet.Name = "aa" & Cnt
　　　　　　xlsWkb.Save
　　　　　　xlsWkb.Close: Set xlsWkb = Nothing
　　　　　　xlsApp.Quit: Set xlsApp = Nothing
　　　　
　　　　DoCmd.TransferSpreadsheet acExport, _
　　　　acSpreadsheetTypeExcel9, "aa", MyFile, True, "aa" & Cnt & "!"
　　　　End If
End Sub

「TransferSpreadsheet」のヘルプには「acExport」の際のRange指定は
記載されていないので正しい使い方ではないと思いますが、
当方の環境では作動しております。（WindowsXP/Access2002/Excel2002）

2,229 hits

▼

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