w_1.sle_1.text=string(ExcelServer.ActiveSheet.Cells(3,2).text)，為w_1視窗的sle_1.text調取sheet1內的cell（3,2）的數值，提示
Null object reference at line 15 in clicked event of object m_打開0 of main.
uj5u.com熱心網友回復：
求高手解答啊！！uj5u.com熱心網友回復：
ExcelServer 要先create 然后connecttoobject 再open檔案,再讀取樓主的代碼全寫了嗎?
uj5u.com熱心網友回復：
//建立OLE物件
OLEObject ExcelServer
ExcelServer = create OLEObject
ExcelServer.ConnectToNewObject("excel.application")
ExcelServer.Workbooks.Open(ls_path,0,False)
ExcelServer.Application.DisplayAlerts = False
excelserver.WorkSheets[1].Activate
w_1.sle_1.text=string(ExcelServer.ActiveSheet.Cells(3,2).text)
uj5u.com熱心網友回復：
w_1.sle_1.text=string(ExcelServer.ActiveSheet.Cells(3,2).value)uj5u.com熱心網友回復：
PB下全面控制ExcelExcel物件控制
創建Excel物件 OLEObject ExcelServer
ExcelServer = Create OLEObject
連接Excel ExcelServer.ConnectToObject("", "Excel.Application")
//如果Excel還沒有打開，則新建。
ExcelServer.ConnectToNewObject("Excel.Application")
回傳值Integer，0正常，負值為錯誤碼
斷開連接Excel ExcelServer.DisconnectObject()
打開指定作業簿 ExcelServer.WorkBooks.Open("c:\temp\ll.xls")
添加新作業簿 ExcelServer.WorkBooks.Add
關閉作業簿 ExcelServer.WorkBooks.Close
添加新的作業表 ExcelServer.Sheets.Add
激活作業表“sheet3” ExcelServer.ActiveWorkBook.Sheets("sheet3").Select
作業表改名 ExcelServer.ActiveSheet.Name = "課程表"
顯示Excel視窗 ExcelServer.Application.Visible = True
更改Excel標題欄 ExcelServer.Caption="PB應用程式呼叫Microsoft Excel"
作業表另為 ExcelServer.ActiveWorkBook.SaveAs("c:\temp\22.xls")
放棄存盤 ExcelServer.ActiveWorkBook.Saved = True
退出Excel ExcelServer.quit
單元格控制
給單元格賦值 ExcelServer.Cells(1,4).Value = XM(XM為資料庫欄位名)
在第2行之前插入一行 ExcelServer.ActiveSheet.Rows(2).Insert
在第2列之前插入一列 ExcelServer.ActiveSheet.Columns(2).Insert
設定指定列的寬度(單位：英文字符個數) ExcelServer.ActiveSheet.Columns(1).ColumnWidth=5
設定指定行的高度(單位：磅) (設定行高為1厘米，1磅=0.035厘米) ExcelServer.ActiveSheet.Rows(1).RowHeight=1/0.035
指定邊框線寬度(Borders引數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；) ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).Weight=3
a到i列自動調整列寬 ExcelServer.ActiveSheet.Columns(“a:i”).AutoFit
設定四個邊框線條的型別(LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線) ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).LineStyle=1
合并單元格 ExcelServer.ActiveSheet.Range("A1:F1”).MergeCells = True
拷貝整個作業表 ExcelServer.ActiveSheet.UsedRange.Copy
拷貝指定區域 ExcelServer.ActiveSheet.Range("A1:E2").Copy
粘貼 ExcelServer.WorkSheet("Sheet2").Range("A1").PasteSpecial
設定字體 ExcelServer.ActiveSheet.Cells(2,1).Font.Name="黑體"
設定字體大小 ExcelServer.ActiveSheet.Cells(1,1).Font.Size=25
設定字體為斜體 ExcelServer.ActiveSheet.Cells(1,1).Font.Italic = True
設定整列字體為粗體 ExcelServer.ActiveSheet.Columns(1).Font.Bold = True
設定整列水平居中 ExcelServer.ActiveSheet.Columns(1).HorizontalAlignment = 3
設定整行字體顏色 ExcelServer.ActiveSheet.Rows(1).Font.ColorIndex = 4
設定整行底色 ExcelServer.ActiveSheet.Rows(2).Interior.ColorIndex = 5
設定整行單元格中的文本自動換行 ExcelServer.ActiveSheet.Row(1).WrapText = True
清除單元格公式 ExcelServer.ActiveSheet.Cells(1,4).ClearContents
列印相關
設定頁眉 ExcelServer.ActiveSheet.PageSetup.CenterHeader="報表1"
設定頁腳 ExcelServer.ActiveSheet.PageSetup.CenterFooter="第＆P頁"
設定頁眉到頂端邊距為2厘米 ExcelServer.ActiveSheet.PageSetup.HeaderMargin=2/0.035
設定頁腳到底邊距為3厘米 ExcelServer.ActiveSheet.PageSetup.FooterMargin=3/0.035
設定頂邊距為2厘米 ExcelServer.ActiveSheet.PageSetup.TopMargin=2/0.035
設定底邊距為4厘米 ExcelServer.ActiveSheet.PageSetup.BottomMargin=4/0.035
設定左邊距為2厘米 ExcelServer.ActiveSheet.PageSetup.LeftMargin=2/0.035
設定右邊距為2厘米 ExcelServer.ActiveSheet.PageSetup.RightMargin=2/0.035
設定頁面水平居中 ExcelServer.ActiveSheet.PageSetup.CenterHorizontally = True
設定頁面垂直居中 ExcelServer.ActiveSheet.PageSetup.CenterVertically = True
設定頁面紙張大小(1－窄行8 5 11 39－寬行14 11) ExcelServer.ActiveSheet.PageSetup.PaperSize=1
在第18行之前插入分頁符 ExcelServer.Worksheets("Sheet1").Rows(18).PageBreak=1
在第4列之前洗掉分頁符 ExcelServer.ActiveSheet.Columns(4).PageBreak=0
列印單元格網線 ExcelServer.ActiveSheet.PageSetup.PrintGridlines = True
列印預覽作業表 ExcelServer.ActiveSheet.PrintPreview
列印輸出作業表 ExcelServer.ActiveSheet.PrintOut
uj5u.com熱心網友回復：
ExcelServer.ActiveSheet.Cells(3,2).text改為
ExcelServer.ActiveSheet.Cells(3,2).value
uj5u.com熱心網友回復：
5樓已經給出單元格控制
給單元格賦值 ExcelServer.Cells(1,4).Value = XM(XM為資料庫欄位名)
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/38383.html
標籤：腳本語言