none
[VB2005]請問怎麼把抓到EXECL的資料即時畫成Curve RRS feed

  • 問題

  • 我的程式裡面會把EXECL打開並把我的資料存到EXECL裡面

    目前是等全部抓完才會存檔

    那怎麼樣可以讓EXECL裡面的資料可以即時顯示並畫成曲線

      xlApp = CreateObject("Excel.Application") '創建EXCEL對象
            'xlBook = xlApp.Workbooks.Open(sf_name) '打開已經存在的EXCEL工件簿檔
            xlBook = xlApp.Workbooks.Add '打開已經存在的EXCEL工件簿檔
            'xlApp.Visible = True '設置EXCEL物件可見(或不可見)
            xlSheet = xlBook.Worksheets(1) '設置活動工作表
            'xlSheet = xlBook.ActiveSheet
            xlSheet.name = "TEST1"
            xlSheet.Cells(1, 1) = "Data1"
            xlSheet.Cells(1, 2) = "Data2"
            xlSheet.Cells(1, 3) = "Data3"
            xlSheet.Cells(1, 4) = "Duty1"
            xlSheet.Cells(1, 5) = "Duty2"
            xlSheet.Cells(1, 6) = "Duty3"
            xlSheet.Columns(1).AutoFit()
            xlSheet.Columns(2).AutoFit()
            xlSheet.Columns(3).AutoFit()
            xlSheet.Columns(4).AutoFit()
            xlSheet.Columns(5).AutoFit()
            xlSheet.Columns(6).AutoFit()

    2012年8月10日 上午 06:47

解答

所有回覆