| |
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
|
|
たらっち
- 19/6/19(水) 14:52 -
hatena
- 19/6/3(月) 11:04 -
かけだしパパ
- 19/4/13(土) 23:31 -
- 19/4/8(月) 22:03 -
