| |
Gin_II さんありがとうございます。
>この方法になると思いますけど。
>どのようなコードを記述して、どううまくいかないのでしょうか？
Aテーブルにはセットしたい数字（B）、セットするExcelシート名（C)が
登録されています。
'データ獲得
strS = ""
strS = strS & vbNewLine & " SELECT B,C"
strS = strS & vbNewLine & " FROM " & Aテーブル
Set rs1 = CurrentDb.OpenRecordset(strS, dbOpenDynaset) 'ＳＱＬ実行
If rs1.RecordCount < 0 Then
GoTo Err_
Else
Do Until rs1.EOF
i = i + 1
'ココでオブジェクトの存在ﾁｪｯｸ
Set MyWSH = CreateObject("WScript.Shell")
MyDesktopPath = MyWSH.SpecialFolders("Desktop")
If Dir(存在パス& rs1("C").Value, vbDirectory) = "" Then
strNoName = strNoName & rs1("C").Value & vbCr
GoTo nextset
End If
Set appExcel = New Excel.Application
Set appWbook = appExcel.Workbooks.Open("C")
ここでシート名、セル名を指定する方法がわかりません
Set MyWSH = Nothing
rs1.MoveNext
Loop
Excel側には起動時に走るマクロが登録されています。
そのマクロを走らせない方法もあれば一緒に教えていただけないでしょうか
どうぞよろしくお願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
