Auto-import Text Files Using Single Cell Value.

**zealot** · 02-11-2013, 06:38 PM

Hello,
I wonder if this can be done. I have a list of the csv files containing price data:

EURUSD10080.CSV
EURUSD1440.CSV
EURUSD240.CSV
EURUSD60.CSV
USDJPY10080.CSV
USDJPY1440.CSV
USDJPY240.CSV
USDJPY60.CSV
GBPUSD10080.CSV
GBPUSD1440.CSV
GBPUSD240.CSV
GBPUSD60.CSV
USDCHF10080.CSV
USDCHF1440.CSV
USDCHF240.CSV
USDCHF60.CSV
AUDUSD10080.CSV
AUDUSD1440.CSV
AUDUSD240.CSV
AUDUSD60.CSV
USDCAD10080.CSV
USDCAD1440.CSV
USDCAD240.CSV
USDCAD60.CSV
NZDUSD10080.CSV

I wonder if it can be possible to have excel structure the data query in such a way that each time I change the name of a single cell (e.g. Set it to EURUSD10080.CSV ) – it will load the corresponding EURUSD10080.CSV file into the worksheet?

I have attached a few CSV files.

Will be glad to hear what you think!

D

**HaHoBe** · 02-12-2013, 12:37 AM

Hi, zealot,

I'm afraid your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Ciao,
Holger

**zealot** · 02-12-2013, 08:47 AM

I recorded one import sequence in a macro:

Option Explicit

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 12.02.2013 by Dima
'

'
    Range("A4").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Dima\Documents\NZDUSD240.csv", Destination:=Range("A4"))
        .Name = "NZDUSD240"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(4, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

I wonder how do I made this macro import the data using the file name that is specified in a cell???