Results 1 to 2 of 2
Thread: Ïîìîù çà Visual Basic
Hybrid View
-
23rd March 2009 12:55 #1
Ïîìîù çà Visual Basic
Çäðàâåéòå, íàäÿâàì ñå íÿêîé äà ìîæå äà ìè ïîìîãíå. Îïèòâàì ñå äà íàïðàâÿ åäíà ïðîãðàìà íà Visual Basic, íî íå çíàì êàê äà âêàðàì/èçêàðàì äàííèòå îò/â åêñåëñêè ôàéë.Çíà÷è òðÿáâà îò åäèí åêñåëñêè ôàéë ñ 10-èíà ñòúëáà äà ñè íàïðàâÿ òîëêîç íà áðîé åäíîìåðíè ìàñèâè è ñúîòâåòíî ñëåä ñìåòêèòå, êîèòî ïðàâÿ äà âêàðàì ïîëó÷åíîòî â íîâè êîëîíêè â åêñåëñêèÿ ôàéë (èëè äðóã òàêúâ ñúùî ñòàâà). Íåùî íå ãî îáÿñíèõ ìíîãî äîáðå, íî èñêàì îò îïðåäåëåí worksheet äà âçåìà äàäåíà êîëîíêà è òÿ äà ñòàíå ìàñèâ.
Áëàãîäàðÿ íà îòçîâàëèòå ñå.
-
24th March 2009 10:23 #2
Êîäà å íà VB6 ïèñàí ïðåäè 2 ãîäèíè è íèùî íå ïîìíÿ.....
Ïðàâèø ðåôåðåíöèÿ êúì åêñåëà. Èìàé â ïðåäâèä, ÷å èìà ðàçëèêà ìåæäó ðàçíè âåðñèè. Ðàáîòåùî ñ åäíà âåðñèÿ íà åêñåëà ìîæå äà íå ùå ñ äðóãà.
äîëíîòî å íà åêñåë 5.0, ìèñëÿ ÷å å îò ïàêåòà îôèñ 2000.
Code:Set xlObject = CreateObject("Excel.Application") On Error GoTo CreateReportFile Debug.Print (Dir(strFileName, vbDirectory)) If Dir(strFileName, vbDirectory) = "" Then GoTo CreateReportFile Set wbTemplate = xlObject.Workbooks.Open(strFileName) Set shDailyReport = wbTemplate.Sheets("DailyReport") If Minute(Time) = 0 Then If Hour(Time) < 12 Then intLineNumber = Hour(Time) + 16 Else intLineNumber = Hour(Time) + (-8) End If For i = 0 To 9 shDailyReport.Cells(intLineNumber, i + 2).Value = Temp(i) Next i For i = 0 To 7 ppp = sngOldFuel(i) - sngBuffFuel(i) shDailyReport.Cells(intLineNumber, i + 12).Value = ppp sngBuffFuel(i) = sngOldFuel(i) Next i End If For j = 0 To 3 For i = 0 To 5 shDailyReport.Cells(40 + j, i + 3).Value = Label1(12 * j + i).Caption Next i Next j For i = 0 To 7 shDailyReport.Cells(30 + i, 4).Value = intWorkTimeHr(i) & ":" & intWorkTimeMin(i) shDailyReport.Cells(30 + i, 6).Value = intTotalWorkTimeHr(i) '& ":" & intTotalWorkTimeMin(I) shDailyReport.Cells(30 + i, 8).Value = intDayliFuel(i) shDailyReport.Cells(30 + i, 10).Value = intTotalFuel(i) Next i shDailyReport.Cells(41, 9).Value = CLng(dblVolume) shDailyReport.Cells(45, 4).Value = Val(Text1.Text) shDailyReport.Cells(45, 8).Value = Val(Text2.Text) On Error GoTo 0 wbTemplate.Save Set shDailyReport = Nothing Set wbTemplate = Nothing xlObject.Quit Set xlObject = Nothing"Arbeit macht frei" -òîëóïà òèêâåí
Èäèîò - Òîâà å ÷îâåê ñ èäåè. Àêî ñúì ïðîïóñíàë ïðåïèíàòåëíè çíàöè, òóê èìà ðåçåðâíè:..,,--?!
OgiDogi: Çàìåðâà ñå ñ ÿéöà, ÿáúëêè, êàìúíè è ò.í., à åëåêòðè÷åñêèòå âåëè÷èíè ñå èçìåðâàò




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè