🚀 go-pugleaf

Użytkownik "Jan Koc" <jan.kociumbas@gmail.com> napisał w wiadomości 
news:3752680b-e403-4a90-a64d-93c340596fed@googlegroups.com...
Niestety.

Procedura działa poprawnie, tworzy plik tekstowy i zamienia go na Excela 
csv, ale niestety z dopiero po otwarciu, zapisaniu jako csv i ..........

Widać Excel ma wbudowaną strukturę przy tworzeniu pliku csv pozwalającą na 
używanie formuł i dopiero jasno zdeklarowane polecenie aby się tego "bagażu" 
pozbyć pozostawia plik "czystym"

Jan

chyba trzeba by uderzyć do jakiejś grupy excelowej ?

A czy nie prościej byłoby eksportować kwerendę do pliku xls, a potem dopiero 
eksportować (czy zachować jako) csv ?

Przypominam sobie moje wojowanie z importem z plików tekstowych (dokładnie 
to nie był csv lecz podobny format sta - stosowany przy wyciągach 
bankowych) - też stosowałem różne kombinacje pośrednie i metodą prób i 
błędów zastosowałem procedurę następującą: tworzyłem plik roboczy "dest" 
oraz w tle plik źródłowy "temp" utworzony z "zaimportowanego" pliku 
tekstowego sta. Jeśli do tego importu zastosowałem opcję Origin:=852 - plik 
temp miał już "ogonkowy" - polski format i po kilku procedurach wykonanych 
na stringach wyniki zapisywałem do pliku dest.
Dopiero z tak uformowanego pliku dest mogłem importować dane do accessa.

Kod VBA wyglądał w tym fragmencie tak:

Dim dWb As Workbook:    Set dWb = ThisWorkbook
Dim sWb As Workbook
Dim dWks As Worksheet:  Set dWks = dWb.Sheets("dest")
Dim sWks As Worksheet

    dWks.Activate
    Range("intro").Select
    dWks.Range("intro").ClearContents


    Workbooks.OpenText Filename:=strPathFile, Origin:=852, StartRow:=1 _
    , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
    , Space:=False, Other:=False, FieldInfo:=Array(Array(0, 1)), _
    TrailingMinusNumbers:=True


    ActiveSheet.Name = "temp"
    Set sWb = ActiveWorkbook
    Set sWks = sWb.Sheets("temp")
    ActiveSheet.UsedRange.Select