Excel VBA質問箱 IV

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

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


72038 / 76733 ←次へ | 前へ→

【9182】CSV読み込み時に。
質問  テーブル  - 03/11/20(木) 15:56 -

引用なし
パスワード
   いつもお世話になっております。
クエリを使ってCSVをEXCELに読み込みます。
その際に、出力させたEXCELのファイル名を
CSVのファイル名と同じファイル名に変更できますでしょうか?
どなたかお知恵をお貸しください。

Sub CSV読み込み()
Dim aFile As Variant
rFile = Application.GetOpenFilename
  With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & rFile, Destination:=Range("A2"))
    .Name = "R123-2-1"
    .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 = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .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, 1, 1, 1, 1, 1, 1)
    .Refresh BackgroundQuery:=False
  End With

End Sub

0 hits

【9182】CSV読み込み時に。 テーブル 03/11/20(木) 15:56 質問
【9188】Re:CSV読み込み時に。 りん 03/11/20(木) 17:57 回答
【9191】Re:CSV読み込み時に。 テーブル 03/11/20(木) 18:37 お礼

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