Results 1 to 2 of 2

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User vekatatd's Avatar
    Join Date: Apr:2007
    Location: sofia
    Posts: 293

    Ïîìîù çà Visual Basic

    Çäðàâåéòå, íàäÿâàì ñå íÿêîé äà ìîæå äà ìè ïîìîãíå. Îïèòâàì ñå äà íàïðàâÿ åäíà ïðîãðàìà íà Visual Basic, íî íå çíàì êàê äà âêàðàì/èçêàðàì äàííèòå îò/â åêñåëñêè ôàéë.Çíà÷è òðÿáâà îò åäèí åêñåëñêè ôàéë ñ 10-èíà ñòúëáà äà ñè íàïðàâÿ òîëêîç íà áðîé åäíîìåðíè ìàñèâè è ñúîòâåòíî ñëåä ñìåòêèòå, êîèòî ïðàâÿ äà âêàðàì ïîëó÷åíîòî â íîâè êîëîíêè â åêñåëñêèÿ ôàéë (èëè äðóã òàêúâ ñúùî ñòàâà). Íåùî íå ãî îáÿñíèõ ìíîãî äîáðå, íî èñêàì îò îïðåäåëåí worksheet äà âçåìà äàäåíà êîëîíêà è òÿ äà ñòàíå ìàñèâ.
    Áëàãîäàðÿ íà îòçîâàëèòå ñå.

  2. #2
    èíæ. ìàãüîñíèê worm4's Avatar
    Join Date: Jul:2005
    Location: Varna
    Posts: 20,295
    Êîäà å íà 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: Çàìåðâà ñå ñ ÿéöà, ÿáúëêè, êàìúíè è ò.í., à åëåêòðè÷åñêèòå âåëè÷èíè ñå èçìåðâàò

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè