Excel-Import dat z csv

[Dieesels]

Ciao, nevím si rady z jedním makrem, pomocí kterého chci importovat data z csv souboru. Přikládám dva soubory: ProcessReturns, ve kterém stačí zadat cestu k souboru(StartUp) OrdersReport. A poté zmáčknout Calculate Summary....Mělo by to importovat data do Listu Victory EURUSD...bohužel se mi ukáže chybové hlášení...hraju si z tím už pár dní a nic.

[navstevnik]

Neuvadis nic blizsiho k chybovemu hlaseni.
Pri spusteni v ceskem prostredi( oddelovac des. mist je "," a ceska lokalizace Excell) je chyba "Type mismatch" pri konverzi na typ Double (funkce CDbl) hodnot z csv v procedure Sub ProcessCSV:

Kód: Vybrat vše

...
.Lots = CDbl(tLots)
...
.OpenPrice = CDbl(tOpenPrice)
...

z csv nactene hodnoty desetinnych cisel maji oddelovac ".", nahradou za oddelovac "," je subrutina funkcni (fce Replace):

Kód: Vybrat vše

...
                        tLots = Replace(tLots, ".", ",", 1)
                        .Lots = CDbl(tLots)
                        .Symbol = LCase(tSymbol)
                        tOpenPrice = Replace(tOpenPrice, ".", ",", 1)
                        .OpenPrice = CDbl(tOpenPrice)
                        .StopLoss = CDbl(tStopLoss)
                        .TakeProfit = CDbl(tTakeProfit)
                        .CloseTime = tCloseTime
                        tClosePrice = Replace(tClosePrice, ".", ",", 1)
                        .ClosePrice = CDbl(tClosePrice)
                        tProfit = Replace(tProfit, ".", ",", 1)
                        .Profit = CDbl(tProfit)
...

Snad to je pricina tvych potizi.

[Dieesels]

Opravdu díky, pomohlo to.

[Dieesels]

Ještě dotaz týkající se importu. Vše funguje jak má, jen to chce mírně upravit. Jaký kod mám přidat do toho makra, aby pokaždé, když budu aktualizovat seznam importovaných dat, se nenakopírovaly z csv znova všechny hodnoty, ale jen ty, které nejsou už v ProcessReturns na záložce Victory EURUSD. Pokaždé, když provedu import z csv do Process Return, všechny hodnoty se smažou a znova nakopírují.

[navstevnik]

Pozadovany zasah neni otazkou pridani nejakeho kodu, ale je nutno zanalyzovat cely program, najit ty casti kodu, ktere odstranuji data z cilovych listu a deaktivovat, najit cast kodu zapisujici nova data, aktivovat vkladani hlavicky listu pokud list je prazdny (prvni spusteni), nalezt posledni zaznam na listu a pridat nova data za tento posledni zaznam.
Rekl bych, ze pozadavek casovou narocnosti presahuje moznosti poradny, program postrada komentare.
Pokud je pozadovano zachovani predchozich zaznamu, doporucuji pred aktualizaci data ulozit (pridat) na zalozni list(y).

[Dieesels]

Ok,Díky. Už jsem si začal rozšiřovat znalosti o VBA, takže podobné dotazy budou odemne méně časté. I tak vám ještě jednou děkuji, hodně jste mi pomohly....