Access VBA質問箱 IV

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

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


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

8246 / 9994

←次へ　｜　前へ→


	【4926】Re:ExcelのデータをＡｃｃｅｓｓのデータ...

小僧 - 05/4/20(水) 9:39 -


	引用なし

	パスワード

▼nemotake さん：
おはようございます。

ご提示された例が当方にはちょっと解りづらいので
以下のような例をあげさせて頂きます。

ブック名：temp.xls
シート名: 計画
セル　　:A1

にある値を

テーブル名：計画テーブル
月（テキスト型）　　値（テキスト型）
１月
２月
３月
４月

４月の値フィールドに挿入する例です。

※要Excel、ADO参照設定

Sub エクセル値参照()
Dim xlsApp As New Excel.Application
Dim xlsWkb As New Excel.Workbook
Dim WkbName As String
Dim ShtName As String
Dim TblName As String
Dim RS As DAO.Recordset

　　WkbName = "C:\temp.xls"
　　ShtName = "計画"
　　TblName = "計画テーブル"
　　Set RS = CurrentDb.OpenRecordset(TblName, dbOpenDynaset)
　　Set xlsWkb = xlsApp.Workbooks.Open(WkbName)
　　　　RS.FindFirst "月 = '４月'"
　　　　RS.Edit
　　　　RS![値] = xlsWkb.Sheets(ShtName).Range("A1").Value
　　　　RS.Update
　　xlsWkb.Close: Set xlsWkb = Nothing
　　xlsApp.Quit: Set xlsApp = Nothing
　　RS.Close: Set RS = Nothing
End Sub

447 hits

▼

【4922】ExcelのデータをＡｃｃｅｓｓのデータにしたい nemotake 05/4/18(月) 15:34