Access VBA質問箱 IV

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

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


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

32 / 9993

←次へ　｜　前へ→


	【13278】excleデータインポートFileNameをインポート日付からフルパスを入力

キム

- 19/3/27(水) 14:42 -


	引用なし

	パスワード

excleデータインポートDoCmd.TransferSpreadsheet acImportのFileNameをインポート日付からフルパスを入力しましたが。途中MsgBoxには表示されますが。
FileNameにフルパスが入りません。

ＶＢＡ初心者でどうしていいかわかりません。
よろしくお願い致します。

Private Sub Excelのデータ読み込む_Click()
Dim intRtn As VbMsgBoxResult
　　intRtn = MsgBox("APK・AMF砂処理日報終了しましたか？。" & vbLf & "Excelデータを転送しますか？", vbYesNo + vbQuestion, "Excelデータ転送確認")
　If intRtn <> vbYes Then
　　MsgBox "転送をキャンセルしました。"
　　End
　End If
Dim dtNow As String
Dim filename As String, filename1 As String, filename2 As String, filename3 As String, PathName As String, filename4 As String, pos As Long
　　dtNow = Form_F_メインフォーム.インポート日付
　　Me.txt年 = Year(dtNow)
　　Me.txt月 = Month(dtNow)
　　Me.txt日 = Day(dtNow)

　　pos = InStrRev("C:\Users\研\Desktop\砂処理日報\APK・AMF砂処理日報.xlsm", "\")
　　PathName = Left("C:\Users\研\Desktop\砂処理日報\APK・AMF砂処理日報.xlsm", pos)
　　filename4 = Mid("C:\Users\研\Desktop\砂処理日報\APK・AMF砂処理日報.xlsm", pos + 1)
　　If IsDate(Form_F_メインフォーム.インポート日付) = True Then
　　　　filename1 = Year(dtNow)
　　　　filename2 = Month(dtNow)
　　　　filename3 = Day(dtNow)
　　End If
　　　　filename = PathName & filename1 & "年砂処理日報" & "\" & filename1 & "." & filename2 & "月" & "\" & "砂処理日報" & "\" & filename1 & "." & filename2 & "." & filename3 & "\" & filename4
　　　　
　　　　 MsgBox filename
DoCmd.TransferSpreadsheet acImport, , "T-天気・稼働内容転送", "filename ", True, "天気・稼働内容転送!"
　DoCmd.OpenQuery "Q-天気・稼働内容差分転送", acViewNormal, acEdit
　DoCmd.OpenQuery "Q-天気・稼働内容転送削除", acViewNormal, acEdit

　DoCmd.SetWarnings True
　　Table削除

MsgBox ("データ取り込みました。")
　Exit Sub
End Sub

468 hits

▼

【13278】excleデータインポートFileNameをインポート日付からフルパスを入力 キム 19/3/27(水) 14:42