Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA Excel import data

Risu [26.06.2008 15:10:46]

#

Moikka!

On pienimuotoista ongelmaa makron kanssa. Tein makron nauhoittamalla, jonka jälkeen ajattelin modailla sitä vähän ja wólaa, mutta ei! Ongelmani on, että tekstitiedosto pitäisi importata exceliin, mutta tekstitiedoston nimi ja polku eivät ole vakioita. Yritän ko. toimintoa toteuttaa seuraavanlaisella koodilla.

Sheet:

Private Sub CommandButton1_Click()
Nimi = Application.GetOpenFilename("Excel files,*.")
Call Module1.Macro1(Nimi)
End Sub

Moduuli:

Sub Macro1(Nimi)
    vConnection = "Connection:= _ " & Chr(10) & Chr(34) & "TEXT;" & Nimi & Chr(34)
        With ActiveSheet.QueryTables.Add(vConnection, _
        Destination:=Range("A1"))
        .Name = "tx_noise.txt"
        .FieldNames = True
        .RowNumbers = False
' ....koodi jatkuu....

vConnection pitäisi olla ihan ookoo, kun tulostan sen sisällön tauluun... sisällön pitäisi olla

Connection:= _
   "TEXT;C:\Users\Makro\noise_in_rx.txt"

ja saan ulos

Connection:= _
"TEXT;C:\Users\Makro\noise_in_rx.txt"

Missä siis vika?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta