Access VBA質問箱 IV

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

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


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

4398 / 9994

←次へ　｜　前へ→


	【8842】オブジョクトが必要って・・。

初心者 - 06/11/28(火) 16:17 -


	引用なし

	パスワード

以下のような感じで複数のエクセルファイルの指定したシートの指定した
範囲を原価構成というテーブルにインポートしようとしています。
しかしオブジェクトが必要です。
とFname = objXL.GetOpenFilename("すべてのファイル(*.*),*.*", , , , True)
この部分でエラーが出てしまいます。
どんなコードを書けばいいのでしょうか・・？

初心者なので結構適当になっています。
こうした方がいいという指摘もお願いします。m(__)m

Public Sub excelimport()

　　Dim objFso As Object
　　Dim objDir As Object
　　Dim objFile As Object
　　Dim strSql As String
　　Dim strDir As String

　　strDir = "\\Shiob030\共有\bbc\03.L.C.kaigai\yyy\07SS\zzz"
　　Set objFso = CreateObject("Scripting.FileSystemObject")
　
　　If objFso.folderexists(strDir) = False Then
　　　　MsgBox strDir & " フォルダは見つかりません"
　　　　Set objFso = Nothing
　　　　Exit Sub
　　End If
　
　　Set objDir = objFso.getfolder(strDir)
　
　　If objDir.Files.Count = 0 Then
　　　　MsgBox "ファイルが無いよ"
　　　　Set objDir = Nothing: Set objFso = Nothing
　　　　Exit Sub
　　End If
　
　　Select Case MsgBox("今までのレコードを消しますか？", vbYesNoCancel + vbDefaultButton3)
　　　　Case vbYes
　　　　　　CurrentDb.Execute "delete * from 原価構成"
　　　　Case vbNo
　　
　　　　Case vbCancel
　　　　　　Set objDir = Nothing: Set objFso = Nothing
　　　　　　Exit Sub
　　End Select

Fname = objXL.GetOpenFilename("すべてのファイル(*.*),*.*", , , , True)

　　'ファイル名の配列を取得
　　 Filsu = UBound(Fname)
　　
　　 For i = 1 To Filsu
　　　　
　　　　DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel9, "原価構成", Fname(i), True, "sheet2!A1:ag5000"
　　　　　　
　　 Next i
　　
End Sub

350 hits

▼

【8842】オブジョクトが必要って・・。 初心者 06/11/28(火) 16:17

≪