Results 1 to 2 of 2

Thread: Visual Basic

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 |