| |
教えて下さい。
Access2002で、ボタンをクリックすると契約書作成印刷.xlsのデータ呼出シートが開くようにしたいです。
下記のコードを実行すると、2つ問題があります。
１．別のシートが開きます。
２．読み取り専用になってしまいます。（入力したいのでこれはNGです）
Private Sub 書類_Click()
Dim xlApp As Excel.Application
Dim xlBk As Excel.Workbook
Dim xlSht As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
' ブックOpen
Set xlBk = xlApp.Workbooks.Open("C:\AAA\契約書作成印刷.xls")
Set xlSht = xlBk.Worksheets("データ呼出")
xlApp.Visible = True
Set xlApp = Nothing
Set xlBk = Nothing
Set xlSht = Nothing
End Sub
おばかですみません。宜しくお願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
