Access VBA質問箱 IV

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

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


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

7798 / 9994

←次へ　｜　前へ→


	【5381】Re:Excelファイル範囲指定のインポート方法

小僧 - 05/6/15(水) 9:55 -


	引用なし

	パスワード

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

※要参照設定　Excel x.x Object　Library

Sub 範囲指定取込()
Dim xlsApp As New Excel.Application
Dim xlsWkb As Workbook
Dim xlsSht As Worksheet
Dim xName As String　　　　 'Excelブックのフルパス名
Dim xSheet As String　　　　'取り込むシート名
Dim Kiten As Range
Dim EndCell As String
　　
　　xName = "C:\test.xls"
　　xSheet = "Ken"
　　
　　Set xlsWkb = xlsApp.Workbooks.Open(xName)
　　Set xlsSht = xlsWkb.Worksheets(xSheet)
　　Set Kiten = xlsSht.Range("B5")
　　　　EndCell = xlsSht.Cells(Kiten.END(xlDown).Row, _
　　　　　　　　　　　　　　　 Kiten.END(xlToRight).Column).Address(False, False)
　　Set Kiten = Nothing
　　Set xlsSht = Nothing
　　xlsWkb.Close: Set xlsWkb = Nothing
　　xlsApp.Quit: Set xlsApp = Nothing

　　DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
　　　　　　　　　　　　　　"T_範囲取込", xName, True, xSheet & "!B5:" & EndCell

End Sub

取込元のExcelファイルや取込先のテーブルの存在チェックなどは行っていません。

3,985 hits

▼

【5373】Excelファイル範囲指定のインポート方法 sakaiII 05/6/14(火) 12:35