Najprej je bilo malo smešno, sedaj me pa že jezi, ker ne znam rešiti malenkostnega problema:
V zvezek "izvor.xls" vpisujem razne podatke. Ker želim, da ostanejo taki kot sem jih napisal, sem oblikoval vse celice kot "besedilo". Potem uporabim makro, ki izvede s temi podatki razne operacije, na koncu pa jih prenese v zvezek "data.xls", ki služi kot baza podatkov. Koda, ki opravi prenos je
Koda: Izberi vse
Set data = Workbooks.Open("C:\data.xls")
st=5
for vr=1 to 100
data.Sheets(1).Cells(vr, st) = Cells(vr, 15).Value
next vr
Z veseljem pričakujem vsak namig!
LP Dušan