| |
初めまして。お世話になります。
現在顧客向け商品台帳を作ろうとしています。
作りたい内容としては、フォームのボタンをクリックすると、同データベース内指定のテーブルにある値を,指定したExcel内の指定したセルへの挿入です。
下記がフォームのボタンに指定したコードなのですが、指定したExcelまでは起動するのですが、その後上手い事テーブル内のデータをエクセルへ挿入出来ません。Accessのテーブルの名称はそのまま「データ」にしてあります。
どうやったらExcelの指定のセルへテーブルのデータを移行出来るでしょうか。
何卒宜しくお願い致します。
___
Option Compare Database
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
oApp.Workbooks.Open FileName:="C:\基本.xls"
oApp.Range("A2").Value = データ!画像
oApp.Range("B2").Value = データ!KCD
oApp.Range("C2").Value = データ!JANCD
oApp.Range("D2").Value = データ!商品名
oApp.Range("E2").Value = データ!出荷ロット
oApp.Range("F2").Value = データ!出荷単位
oApp.Range("G2").Value = データ!単価
oApp.Range("I2").Value = データ!備考
Exit_コマンド0_Click:
Exit Sub
Err_コマンド0_Click:
MsgBox Err.Description
Resume Exit_コマンド0_Click
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
