Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zamina kropki na przecinki
pawjan69




Typ: neutral
Postów: 4
Zarejestrowany: Dec 2004
Zamina kropki na przecinki

Mam taki problem
Importuje plik z liczbami ale tam przecinkiem jest kropka. Normalnie to zazanczam cały arkusz i zamieniam kropki na przecinki. Wówczas execel traktuje to jako liczby. Natomiast w VBA gdy to robie to mimo, że wszedzie są juz przecinki execel nadal traktuje to jako tekst i nie pomaga nic
- ani rormatowanie komurek na liczbę
- ani skopiowanie wartosci 1 i wklej specjalnie z opocją przemnóż.
Co mam z tym zrobić
P.J


_____________________________________________
POZDRAWIAM 
PawJan

02-01-2005 19:40
Pokaż profil pawjan69  Wyślij email do pawjan69   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Pawle (albo Januszku ?)

Nie wiem czy dobrze zrozumiałam, ale nagrałam makro poniższe i ono importuje plik tekstowy, założenia wpisałam do komentarzy, może coś sobie z tego skorzystasz.

Sub ImportTxtCommaSeparator()

On Error GoTo ImportTxtCommaSeparator_Error

'''' proszę zwócic uwagę na parametr .TextFileDecimalSeparator
'''' zamiast D:\Documents and SettingsKarolMoje dokumentyZeszytuni.txt"
'''' należy wpisać swój lik do pliku
'''' założenie-pola oddzielone tabulatorami
'''' zakres początkowy  Destination:=Range("A1" ) też swój


    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\Documents and SettingsKarolMoje dokumentyZeszytuni.txt", _
        Destination:=Range("A1" ))
        .Name = "Zeszytuni"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileDecimalSeparator = "."
        .Refresh BackgroundQuery:=False
    End With

ImportTxtCommaSeparator_Exit:
Exit Sub

ImportTxtCommaSeparator_Error:
MsgBox "Błąd - " & Err.Number & vbCrLf _
            & "Opis -  " & Err.Description & vbCrLf _
            & "Procedura - " & "ImportTxtCommaSeparator", vbExclamation, "VBAProject - ImporTxtCommaSepar"
Resume ImportTxtCommaSeparator_Exit
End Sub

Sumowanie wstawianych w komórkach wartości za pomocą formuły SUMA wykonałam, Excel traktuje wstawione komórki jako liczby. Wszystkie konieczne formatowania można wyczytać z tego makra. Komórek przed wstawieniem nie formatowałam.

Szczęśliwego Nowego Roku

[Post edytowany dnia 03-01-2005 20:02 przez karolinavb]


_____________________________________________
Karolina

03-01-2005 19:59
Pokaż profil karolinavb  Wyślij email do karolinavb   
pawjan69




Typ: neutral
Postów: 4
Zarejestrowany: Dec 2004
Dzieki

Dzieki Karolino jetem Paweł jak zgadłas

Dałem soebie rade
problem poległa na tym, że w moim importowanym pliku z zaawansowanego systemu do projektowania BOCAD okazało sie że kropka ma tam inny kod ASCII

Ale dzieki wypróbuje i Twoją Pomoc


_____________________________________________
POZDRAWIAM 
PawJan

07-01-2005 10:50
Pokaż profil pawjan69  Wyślij email do pawjan69   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

A tak z "czystej nieposkromionej" ciekawości:
czy to co napisałeś oznacza, że jak w miejsce

    .TextFileDecimalSeparator = "."

zamiast "." wstawisz CHR(kod znaku Twojejej kropki) to będzie dobrze ?


_____________________________________________
Karolina

07-01-2005 14:55
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1