Excel innebygd dialoger

stemmer
1

Er det noen som vet hvordan de skal ringe import datainnebygde dialog utmerke seg fra en makro (VBA)?

Jeg har prøvd Application.Dialogs.Item(...).Show, men jeg kan ikke finne den rette dialogen. Vennligst hjelp.

Takk på forhånd.

Publisert på 28/10/2008 klokken 22:12
kilden bruker
På andre språk...                            


3 svar

stemmer
0

Hvis du velger objektet Browser og søk etter si, xlDialogImportTextFile, vil du få en liste over mulige dialoger.

EDIT: Kanskje noe på disse linjene ville passe:

'Allow user to select text file
sf = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If sf <> False Then
    'Open text file
    Workbooks.OpenText sf
End If
Svarte 28/10/2008 kl. 22:27
kilden bruker

stemmer
2

Det nærmeste jeg kan finne ved hjelp av dialogboksen systemet er:

Application.Dialogs(xlDialogImportTextFile).Show

Du kan få en referanse til kommandolinjen knappen (i hvert fall for meg i både 2k3 og 2k7) via:

Set button = Application.CommandBars.FindControl(ID:=6262)

Men å kalle Executemetoden på knappen svikter. Dessverre virker det korte svaret å være at det ikke er mulig.

Du kan legge QueryTable gjenstander for hånd. Selv ikke en optimal bane, kan du designe din egen enkelt grensesnitt for å velge kildedataene.

Svarte 28/10/2008 kl. 22:29
kilden bruker

stemmer
0

Jeg tror ikke det er en VBA tilsvarende, fordi i ett tilfelle er du tilbake data i et regneark, mens i det andre tilfellet, er dataene satt inn i en post i minnet.

Dette kludge skal dukke opp dialogen for deg, men:

SendKeys "%ddd"
Svarte 29/10/2008 kl. 05:35
kilden bruker

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more