View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
uriel78 uriel78 is offline
external usenet poster
 
Posts: 38
Default 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...!