Access VBA質問箱 IV

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

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


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

1584 / 9994

←次へ　｜　前へ→


	【11701】インポートについて

masayopapa - 10/6/23(水) 14:46 -


	引用なし

	パスワード

お世話になります
現在下記にてCSVをインポートしていますが追加機能がほく質問しました
■追加したいこと
二重インポートを防ぎたい
１度インポートしたファイルはメッセージで表示させたい
（何時何分にインポートした履歴があります再度インポートしますか？）など

ファイル名テーブルにインポート名と時間を毎回インポートごとに記載させ
同じファイル名がヒットするとメッセージでお知らせのようなイメージです

現在のVBAは前任者のもので
退職して連絡がとれません；；
初心者ですがご教授の程宜しくお願いします

Private Sub コマンド1_Click()

Dim myFName As Variant
Dim myPrompt As String

With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add "テキストファイル1", "*.txt;*.csv;*.prn"
.ButtonName = "確認"
If CBool(.Show) Then
For Each myFName In .SelectedItems
myPrompt = myPrompt & vbCrLf & CStr(myFName)
Next
myPrompt = Mid$(myPrompt, 3)
Me.テキスト1 = myPrompt
Dim strFile As Variant
If MsgBox("インポートしますか？", 4, "実行確認") = vbYes Then
For Each strFile In Split(Me!テキスト1, vbCrLf)
DoCmd.TransferText acImportDelim, "データ", "データ", strFile, False

'DoCmd.TransferText acImportDelim, "CSV", "DB", strFle, False
'DoCmd.TransferText acImportDelim, "CSV", "DB", strFle & myPrompt, False, ""

Next

Me.Requery '再更新
Me.Recalc
MsgBox "データを更新しました"

End If
Else
MsgBox "ファイルは選択されていません。"
End If
End With
End Sub

573 hits

▼

【11701】インポートについて masayopapa 10/6/23(水) 14:46