Newsgroup: it.comp.lang.visual-basic
Titolo: CPU 100%

Salve,
E' normale che facendo una conversione da xls a txt con circa 3500 righe di
excel, nella acquisizione dei dati da xls
ho un utilizzo della cpu al 100%?
Cio' mi capita utilizzando questo prg.:
Dim ObjExcel As Excel.Application
Dim i As Long
Private Sub Command1_Click()
Set ObjExcel = New Excel.Application
ObjExcel.Visible = False
ObjExcel.SheetsInNewWorkbook = 1
ObjExcel.Workbooks.Open "c:\bob\cartel1.xls"
i = 1
Do
i = i + 1
ListView1.ListItems.Add 1, , ObjExcel.Cells(i, 2).Value
ListView1.ListItems(1).SubItems(1) = ObjExcel.Cells(i, 2).Value
ListView1.ListItems(1).SubItems(2) = ObjExcel.Cells(i, 3).Value
ListView1.ListItems(1).SubItems(3) = ObjExcel.Cells(i, 4).Value
ListView1.ListItems(1).SubItems(4) = ObjExcel.Cells(i, 5).Value
ListView1.ListItems(1).SubItems(5) = ObjExcel.Cells(i, 6).Value
ListView1.ListItems(1).SubItems(6) = ObjExcel.Cells(i, 7).Value
ListView1.ListItems(1).SubItems(7) = ObjExcel.Cells(i, 8).Value
ListView1.ListItems(1).SubItems(8) = ObjExcel.Cells(i, 9).Value
ListView1.ListItems(1).SubItems(9) = ObjExcel.Cells(i, 10).Value
ListView1.ListItems(1).SubItems(10) = ObjExcel.Cells(i, 11).Value
ListView1.ListItems(1).SubItems(11) = ObjExcel.Cells(i, 12).Value
ListView1.ListItems(1).SubItems(12) = ObjExcel.Cells(i, 13).Value
ListView1.ListItems(1).SubItems(13) = ObjExcel.Cells(i, 14).Value
ListView1.ListItems(1).SubItems(14) = ObjExcel.Cells(i, 15).Value
ListView1.ListItems(1).SubItems(15) = ObjExcel.Cells(i, 16).Value
ListView1.ListItems(1).SubItems(16) = ObjExcel.Cells(i, 17).Value
ListView1.ListItems(1).SubItems(17) = ObjExcel.Cells(i, 18).Value
ListView1.ListItems(1).SubItems(18) = ObjExcel.Cells(i, 19).Value
ListView1.ListItems(1).SubItems(19) = ObjExcel.Cells(i, 20).Value
ListView1.ListItems(1).SubItems(20) = ObjExcel.Cells(i, 21).Value
ListView1.ListItems(1).SubItems(21) = ObjExcel.Cells(i, 22).Value
ListView1.ListItems(1).SubItems(22) = ObjExcel.Cells(i, 23).Value
ListView1.ListItems(1).SubItems(23) = ObjExcel.Cells(i, 24).Value
Loop While ObjExcel.Cells(i + 1, 2) <> 0
End Sub
Private Sub Command2_Click()
nuovofile = FreeFile
'n = n + 1
'If ObjExcel.Cells(i, 2) = Nome Then
Open ("c:\bob\DOC1.TXT") For Append As nuovofile
For n = 1 To i
COD_INQUI = ObjExcel.Cells(n, 1).Value
COD_ALL = ObjExcel.Cells(n, 2).Value
NOME1 = ObjExcel.Cells(n, 3).Value
INDIR = ObjExcel.Cells(n, 4).Value
CAP = ObjExcel.Cells(n, 5).Value
DEST = ObjExcel.Cells(n, 6).Value
PROV = ObjExcel.Cells(n, 7).Value
C2 = ObjExcel.Cells(n, 8).Value
LIRE1 = ObjExcel.Cells(n, 9).Value
EURO1 = ObjExcel.Cells(n, 10).Value
SCADE1 = ObjExcel.Cells(n, 11).Value
C1_1 = ObjExcel.Cells(n, 12).Value
CUVC1 = ObjExcel.Cells(n, 13).Value
LIRE2 = ObjExcel.Cells(n, 14).Value
EURO2 = ObjExcel.Cells(n, 15).Value
SCADE2 = ObjExcel.Cells(n, 16).Value
C1_2 = ObjExcel.Cells(n, 17).Value
CUVC2 = ObjExcel.Cells(n, 18).Value
EURO1 = ObjExcel.Cells(n, 19).Value
PROTOC = ObjExcel.Cells(n, 20).Value
GIUSTD2 = ObjExcel.Cells(n, 21).Value
CANONE = ObjExcel.Cells(n, 22).Value
SEGNO = ObjExcel.Cells(n, 23).Value
SB = ObjExcel.Cells(n, 24).Value
CONG = ObjExcel.Cells(n, 25).Value
 etc........
cosa ne pensate?
grazie
Roberto.

cosa ne pensate?
che hai gia' aperto ieri questo thread :)
Ciao
Aldo