Excel VBA質問箱 IV

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

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


38134 / 76732 ←次へ | 前へ→

【43741】インポートするファイル名にセルの値を代入したい
質問  うな  - 06/10/24(火) 14:06 -

引用なし
パスワード
   4桁or5桁の英数字のコードがついたTXTファイルをインポートしたいのです。
セルにそのコードを入力して、そのコード名のファイルをインポートするようにコードを書きましたが、エラーは出ませんが、目的のファイルがインポートできず、空白のままです。
Sub マッチング()
  Dim stCNo As String
  stCNo = Worksheets("結果").Range("B3").Value 
  
  Sheets("注文書").Select
  Range("A2").Select
  
  With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;D:\Data\" & stCNo & ".txt", Destination:=Range("A2"))
    .Name = stCNo
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = xlWindows
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
  End With
End Sub

よろしくご指導ください。

0 hits

【43741】インポートするファイル名にセルの値を代入したい うな 06/10/24(火) 14:06 質問
【43744】Re:インポートするファイル名にセルの値を... Jaka 06/10/24(火) 16:31 発言
【43745】Re:インポートするファイル名にセルの値を... Jaka 06/10/24(火) 16:35 発言
【43746】Re:インポートするファイル名にセルの値を... Kein 06/10/24(火) 16:40 回答
【43747】Re:インポートするファイル名にセルの値を... うな 06/10/24(火) 16:49 お礼

38134 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free