Gegevens uit een cps file importeren in excel document

[nielsbl11]

Heej!,

Gegevens uit een cps file importeren in excel? De bedoeling is dat er een schermpje van openen komt waar je een cps bestand kan selecteren en deze moet vervolgens geopend worden in een bestaand excel document

er is een functie voor in excel onder ; date - externe gegevens ophalen - tekstbestand importeren.

als je dit met de hand doet lukt het wel maar dit moet doormiddel van een vba programmatje automatisch gaan

alvast bedankt voor de hulp,

code

 With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Bloemen\Mijn documenten\edit spreadsheet\HIER ANDER BESTAND.cps" _
        , Destination:=Range("A1"))
        .Name = "HIER ANDER BESTAND"
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(7, 24, 39)
        .Refresh BackgroundQuery:=False

 

[Niels28]

Openen in bestaan document, wat bedoel je daar mee?

Sub openschermpje()
Application.Dialogs(xlDialogOpen).Show
End Sub

Niels

 

[nielsbl11]

Ik heb nu een excel documentje die de gegevens automatisch in een autocad programma zet

maar dat excel documentje word aangestuurd met een standaard opgebouwd document, dit bestand ( of eigenlijk de gegevens uit dit bestand) moet dus in dat andere excel document worden geopend.

 

[Niels28]

nav je aanvulling

Application.GetOpenFilename

Niels

 

[nielsbl11]

moet ik "Application.GetOpenFilename" dan op "HIER ANDER BESTAND" neerzetten???

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Bloemen\Mijn documenten\edit spreadsheet\Application.GetOpenFilename" _
, Destination:=Range("A1"))
.Name = "HIER ANDER BESTAND"

 

[Niels28]

probeer het eens met:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\Bloemen\Mijn documenten\edit spreadsheet\" & Application.GetOpenFilename, Destination:=Range("A1"))

Ps graag code tussen codetags (#) zetten.

Niels

 

[nielsbl11]

er gebeurd niets, geen gegevens alleen een foutmelding ( word geel ) ".Refresh BackgroundQuery:=False "

 

[nielsbl11]

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\Bloemen\Mijn documenten\edit spreadsheet\" & Application.GetOpenFilename, Destination:=Range("A1"))
       
        .Name = "leaflet_x56088_6"
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(7, 24, 39)

 

[nielsbl11]

ik doe het zelf via externe gegevens ophalen --> tekstbestand importeren

dit moet dus automatisch kunnen

 

[Niels28]

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Application.GetOpenFilename, Destination:=Range("A1"))

Zo misschien?



Niels

 

[nielsbl11]

mijn held!!! het is gelukt

heel erg bedankt,

groetjes Niels B