Kevinas klausia,
Turiu duomenų rinkinį, kuris yra saugomas skirtuko atribotame tekstiniame faile. Dalis informacijos turi išlaikyti „užpildymą“, pvz., Pašto kodus (jie turi būti 5 arba 9 simbolių ilgio). Kai tekstinis failas atidaromas „Excel“, automatiškai pasirodo teksto importavimo vedlys. Yra galimybė nurodyti, kad stulpelis, kuriame yra šie duomenys, yra tekstas, o ne bendras. Pasirinkus šią parinktį, bet man reikia, kad atidarymą atlikčiau rankiniu būdu. Man nepavyko rasti būdo VBA, kad informacija būtų tekstinė, o ne bendrinė, ir išsaugočiau savo „užpildymą“.
Įjunkite makrofoną ir įrašykite teksto failo importavimo procesą. Tai yra gautas kodas:
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:=True„FieldInfo“ parametras kontroliuoja, kaip kiekvienas laukas yra importuojamas. Šiuo atveju makrokomandas įrašė, kad turite 4 laukus. Masyvo (2, 1) įraše sakoma, kad 2 laukui naudokite lauko tipą „General“. Atminkite, kad 3 lauke įrašas yra Masyvas (3, 2). „2“ yra „Excel“ kodas, skirtas importuoti šį lauką kaip tekstą.
