ACCESSのVBAからExcelのセルから読めたのですが、書く方法を教えてください
下記の方法でCell(1,1)、から読むことができました
そこで今度書き込みなのですが
With xlBk.Worksheets("Sheet1")
'Debug.Print .Cells(1,1)
.Cell(1,2) = "data"
End With
としても、エクセルシートには書かれていないのですが
書く方法を教えてください
ただ、下記の
Open(Filename:=strFile, UpdateLinks:=0)
はエクセルをOpenする時
「このブックは他のデータソースへのリンクがふくまれています」
とメッセージがでるので、UpdateLinks:=0、と入れています
よろしくおねがいします
'---------------------------------
Dim xlApp As Excel.Application
Dim xlBk As Excel.Workbook
Dim strFile As String
strFile = "C:\Sample\Book1.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBk = xlApp.Workbooks.Open(Filename:=strFile, UpdateLinks:=0)
With xlBk.Worksheets("Sheet1")
Debug.Print .Cells(1,1)
End With
xlBk.Close False
xlApp.Quit
Set xlApp = Nothing
'----------------------------------
補足
早速有難うございます。 Sub aaa() Dim pa As String pa = "C:\" i = 2 ’＜－－－i=2ですと開始位置が A2 Do Range(Cells(i , "A"), Cells(i, "A")).Select ’位置がA2 ’上記セルの移動先確認でセットしました。 Workbooks.Open Filename:=pa & Cells(i, "A") & ".xls", UpdateLinks:=0 ＜－－マクロを動作させるとWorkbooksが動作して呼び出しをしてしまう。これでは出来すぎ？の為次のi = i + 1に進まないです。 B２に Workbooks.Open Filename:=pa & "1234.xls", UpdateLinks:=0 この様に表示? 貼り付けが欲しい。 i = i + 1 Loop Until Cells(i, "A") = "" End Sub 遅くすみません。