Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with ActiveSheet.QueryTables.Add Connection:
I'm just trying to import a txt file (little by little i'm improving...)
Below there is the first part of the code that do the input of a specific file With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\Roby\Documenti\Universitą\tesi\Modelli2\E dificio esistente\Base\3PO_altezze_Y_prototipo2_OUTDATI.tx t" _ , Destination:=Range("A1")) .Name = "3PO_altezze_Y_prototipo2_OUTDATI5" FieldNames = True .RowNumbers = False ............................. . ............................. Now, I wish I can use a dialog form instead of specifying the path directly in the code as above written With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\Roby\Documenti\Universitą\tesi\Modelli2\E dificio esistente\Base\3PO_altezze_Y_prototipo2_OUTDATI.tx t" _ , Destination:=Range("A1")) I think may it is possible to use somthing as Application.GetOpenFilename to indicate the connection path...In other terms, as I have to do import procedure for a lot of *.txt files, I don't want to have to specify explicitally the path for every file...It will be better to be able to use a graphic interface that allow me to browse for the file.... Thanks in advance for every help...! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with ActiveSheet.QueryTables.Add Connection:
If you want to use GetOpenfilename to specify the file:
Dim fName as Variant fname = Application.GetOpenFilename() if fname < False then With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & fName _ , Destination:=Range("A1")) ............................................ End if Otherwise, it is unclear what you are saying. -- Regards, Tom Ogilvy "uriel78" wrote in message ... I'm just trying to import a txt file (little by little i'm improving...) Below there is the first part of the code that do the input of a specific file With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\Roby\Documenti\Universitą\tesi\Modelli2\E dificio esistente\Base\3PO_altezze_Y_prototipo2_OUTDATI.tx t" _ , Destination:=Range("A1")) .Name = "3PO_altezze_Y_prototipo2_OUTDATI5" FieldNames = True .RowNumbers = False ............................ . ............................ Now, I wish I can use a dialog form instead of specifying the path directly in the code as above written With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\Roby\Documenti\Universitą\tesi\Modelli2\E dificio esistente\Base\3PO_altezze_Y_prototipo2_OUTDATI.tx t" _ , Destination:=Range("A1")) I think may it is possible to use somthing as Application.GetOpenFilename to indicate the connection path...In other terms, as I have to do import procedure for a lot of *.txt files, I don't want to have to specify explicitally the path for every file...It will be better to be able to use a graphic interface that allow me to browse for the file.... Thanks in advance for every help...! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
always recheck data connection library for latest connection strin | Excel Discussion (Misc queries) | |||
QueryTables Add | Excel Programming | |||
ActiveSheet.QueryTables.Add using a File DSN | Excel Programming | |||
With ActiveSheet.QueryTables.Add | Excel Programming |