| |
▼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の変数にシート名と範囲を指定してあげればいけると思いますよ。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
