Access VBA質問箱 IV

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

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


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

4217 / 9994

←次へ　｜　前へ→


	【9024】Re:Ｅｘｃｅｌのシートの読込について

yasu - 07/1/20(土) 0:48 -


	引用なし

	パスワード

▼Gin_II さん：
>>Ｅｘｃｅｌのシートを読込みたいのですが表示されていないシートについでも
>>読込可能なのでしょうか？
>
>試せば分かることでは？

Function ExcelDataImport()

'On Error GoTo エラー

　　Dim varac As Variant
　　Dim varxls As Variant
　　Dim strrange As String
　　Dim strmsg As String

　　varac = "tbl_売上げ" ' --- A
　　
　　varxls = "C:\売上げ.xls" ' ---Ｂ
　　
　　strrange = "売上げシート!A1:D10" ' --- C
　　
　　strmsg = "Excelファイル" & varxls & " を、Accessテーブル " & varac & _
　　　　　　 "へ、データ入力を行います。" & Chr(13) & _
　　　　　　 "Excelファイルの入力レンジは、 " & strrange & " です。"

　　DoCmd.DeleteObject acTable, varac ' --- D
　　If MsgBox(strmsg, vbOKCancel) = vbOK Then
　　　　DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
　　　　　　　　　　　　　　　　　　　　varac, varxls, True, strrange ' -- E
　　　　MsgBox "データ入力は、正常に完了しました。"
　　End If

　　Exit Function

エラー:

　　MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _
　　　　　 "エラー番号：" & Err.Number & Chr(13) & _
　　　　　 "エラー内容：" & Err.Description, vbCritical
　　Exit Function

End Function

あくまでも参考ですが、strrangeの変数にシート名と範囲を指定してあげればいけると思いますよ。

357 hits

▼

【9014】Ｅｘｃｅｌのシートの読込について NEMOTO 07/1/19(金) 10:15