Access VBA質問箱 IV

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

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


9 / 2263 ツリー ←次へ | 前へ→

【13278】excleデータインポートFileNameをインポート日付からフルパスを入力 キム 19/3/27(水) 14:42 質問[未読]
【13279】Re:excleデータインポートFileNameをインポ... よろずや 19/3/28(木) 11:15 回答[未読]
【13280】Re:excleデータインポートFileNameをインポ... キム 19/3/29(金) 11:11 お礼[未読]

【13278】excleデータインポートFileNameをインポ...
質問  キム E-MAIL  - 19/3/27(水) 14:42 -

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

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

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

【13279】Re:excleデータインポートFileNameをイン...
回答  よろずや  - 19/3/28(木) 11:15 -

引用なし
パスワード
   DoCmd.TransferSpreadsheet acImport, , "T-天気・稼働内容転送", "filename ", True, "天気・稼働内容転送!"

DoCmd.TransferSpreadsheet acImport, , "T-天気・稼働内容転送", filename, True, "天気・稼働内容転送!"

【13280】Re:excleデータインポートFileNameをイン...
お礼  キム E-MAIL  - 19/3/29(金) 11:11 -

引用なし
パスワード
   ありがとうございます。基礎が全く分かっていない事を痛感
しました。

9 / 2263 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1042385
(SS)C-BOARD v3.8 is Free