VBA.Mania

vbamania.pl

Dziś jest niedziela, 12 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	import pliku typu .txt do otwartego skoroszytu otwarty rozpoczął: jamanow* postów: 3

napisał: jamanow postów: 69 umieszczony: 18 kwietnia 2012 18:00
	Działa dokładnie tak jak sobie wymarzyłem. Dziękuję.

napisał: Trebor postów: 1209 umieszczony: 18 kwietnia 2012 17:04
	Po nagraniu, znacznym przycięciu i lekkiej modyfikacji wyszło coś takiego: Sub Makro2() With Sheets.Add .Name = "Przykład" With .QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\Admin\Pulpit\przykład.txt", Destination:=Range("$A$1")) .Name = "Jamanow" .TextFileOtherDelimiter = ":" .Refresh BackgroundQuery:=False End With End With End Sub

napisał: jamanow postów: 69 umieszczony: 18 kwietnia 2012 13:46
	Znalazlem kod ktory niemalze odpowiada moim potrzebom, lecz nie calkowicie. czy mozna przerobic kod tak azeby impotrowal plik tekstowy do otwartego skoroszytu otwierajac nieistniejacy arkusz pod nazwa "przyklad" oraz oddzielim teks tak azeby tekst do dwukropka trafil do kolumny A a po dwukropku do kolumny B. Sub textImport() Workbooks.OpenText FileName:="C:\temp\excel\1.txt", Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)) End Sub

wstecz 1 dalej

wszystkich stron: 1