Access VBA質問箱 IV

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

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


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

5572 / 9994

←次へ　｜　前へ→


	【7639】特定のファイルを指定して…

TB1 - 06/4/4(火) 11:45 -


	引用なし

	パスワード

宜しくお願いします。
日々出来てくるCSVファイルをアクセスの特定のテーブルに追加していきたいと思います。

出力先を選択するコードはあるサンプルからとって

Private Sub 出力ファイル選択_Click()
　Dim strFileName As String
　Dim strFilter As String
　Dim blnRet As Boolean
　
　strFilter = "エクセル(*.xls)" & vbNullChar & "*.xls" & vbNullChar & _
　　　　　　　"CSV(*.csv)" & vbNullChar & "*.csv"　
　Me.出力ファイルパス = Null
　blnRet = GetFileName_Save(strFilter, strFileName)
　If blnRet = True Then
　　Me.出力ファイルパス = strFileName
　End If
End Sub

Private Sub 出力実行_Click()
　Dim strFileName As String
　Dim strType As String
　
　If IsNull(Me.出力ファイルパス) = True Or Len(Me.出力ファイルパス) = 0 Then
　　Exit Sub
　End If
　If IsNull(Me.出力ファイルパス) = True Or Len(Me.出力ファイルパス) = 0 Then
　　Exit Sub
　End If
　
　strFileName = Me.出力ファイルパス
　Select Case Right(strFileName, 3)
　
　　Case "csv"
　　　DoCmd.TransferText acExportDelim, , "部品マスタ", strFileName, True
　　　
　　Case Else
　　　MsgBox "出力対象ファイル形式を選択してください。", vbOKOnly + vbCritical, ""
　　　
　　　
　　　Exit Sub
　End Select
　
　MsgBox "部品マスタ情報を" & Chr(13) & _
　　　　 strFileName & Chr(13) & _
　　　　 "に出力しました。", vbOKOnly + vbInformation, ""
End Sub

となっていまして、テスト的にやってみると、サンプル上の特定した"部品マスタ"の情報が、指定したエクセルファイルに書き込まれます。

これを、特定ではなく選択したファイルを、選択したアクセスファイルのテーブルに追加書き込みしたいのです。

出力ファイル選択のコードを改造すれば入力ファイルも選択できるかと思ったのですが、簡単では無かったです。
大変漠然としていますが、なにか良い方法があれば教えてください。
宜しくお願いします。

2,435 hits

▼

【7639】特定のファイルを指定して… TB1 06/4/4(火) 11:45

≪