Access VBA質問箱 IV

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

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


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

8440 / 9994

←次へ　｜　前へ→


	【4726】Re:AccessVBAからExcelの標準モジュールを...

小僧 - 05/3/24(木) 16:45 -


	引用なし

	パスワード

▼VBA初心者さん：
横から失礼いたします。

>++++++++++++++++++++++++++++++
>Set Rs1 = db.OpenRecordset(StrSql).Clone
>Set xlsApp = CreateObject("Excel.Application")
>
>xlsFile = ファイルA 'Excel File
>
>Set wkb = xlsApp.Workbooks.Open(Filename:=xlsFile)
>
>
>wkb.Worksheets("Sheet1").Range("A1") _
>　　　　　　　　　　　　　 .CopyFromRecordset Data:=Rs1
>
>
>wkb.Excel4MacroSheets.Application.ExecuteExcel4Macro ("Sheet1マクロ名")
　　↓
xlsApp.Run xlsApp.ActiveWorkbook.Name & "!Sheet1.マクロ名"

>
>Call wkb.Application.ActiveWorkbook.SaveAs _
>　　　　　　(Filename:=ファイルB)
　　↓
Call xlsApp.ActiveWorkbook.SaveAs _
　　　　　　 (FileName:=BFile)

>Let xlsApp.Visible = True
>Let xlsApp.UserControl = True
>
追加
xlsApp.Quit

>Set wkb = Nothing
>Set xlsApp = Nothing
>Set Rs1 = Nothing
>++++++++++++++++++++++++

こんな感じでいかがでしょうか？

1,702 hits

▼

【4634】AccessVBAからExcelの標準モジュールを呼... VBA初心者 05/3/17(木) 22:44