Kevin pita,
Imam skup podataka koji su pohranjeni u tekstualnoj datoteci odvojenoj karticama. Neke informacije trebaju zadržati "popunjavanje" - poput poštanskih brojeva (moraju imati 5 ili 9 znakova). Kad se tekstualna datoteka otvori u Excelu, automatski se otvori čarobnjak za uvoz teksta. Postoji mogućnost da odredite da je stupac koji sadrži te podatke Tekst, a ne Općenito. Odabir ove opcije djeluje - ali zahtijeva da ručno otvorim. Nisam uspio pronaći način u VBA-u da informacije budu Tekst, a ne Općenito - i sprema moje 'umetanje'.
Uključite snimač makronaredbi i zabilježite postupak uvoza vaše tekstualne datoteke. Evo rezultirajućeg koda:
Workbooks.OpenText Filename:= “C:TestData.txt”, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1)), TrailingMinusNumbers:=TrueParametar FieldInfo kontrolira način uvoza svakog polja. U ovom je slučaju makro snimač primijetio da imate 4 polja. Unos Array (2, 1) kaže da za drugo polje koristite tip polja "General". Imajte na umu da je za polje 3 unos Array (3, 2). "2" je kôd za Excel da uvozi ovo polje kao Tekst.
