求助幫忙 謝謝
Private Sub Command1_Click()
Dim a(101) As String
Dim i, j, b As Integer
Dim c As String
Dim xlsApp As Excel.Application
Dim xlsWorkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkbook = xlsApp.Workbooks.Open("e:\售后服務量化指標旬報表.xls")
xlsApp.Visible = False
xlsApp.Range("A1").Select
For j = 0 To 5
For i = 1 To 5
a(i) = xlsApp.ActiveCell.Offset(j, i - 1).Value
Print i;
Print " ";
Print a(i)
Next i
Next j
c = xlssheet.UsedRange.Rows.Count 執行到本陳述句中就提示錯誤 “物件變數或 with 塊變數未設定”
xlsWorkbook.Close
xlsApp.Quit
Set xlssheet = Nothing
Set xlsWorkbook = Nothing
Set xlsApp = Nothing
End Sub
uj5u.com熱心網友回復：
xlssheet.UsedRange.Rows.Count以上陳述句是Excel的Vba陳述句中用法是在除錯視窗中
？xlssheet.UsedRange.Rows.Count
貌似VB6.0并不支持此類用法。建議注釋此句，用其它方式獲取Excel表格的總行數及總列數。
這可用Ado資料物件實作。
uj5u.com熱心網友回復：
沒看到你對xlssheet進行賦值啊uj5u.com熱心網友回復：
實際用打開資料庫的方法打開Excel檔案，在VB中是比較通用的操作方法，比使用Excel陳述句操作簡單，而且錯誤幾率特小，在參考中添加ADO參考即可，不需要設定某行某列，ADO物件讀取是一行一行讀取的。如果你想使用ADO物件的方法連接、讀取、修改、洗掉等，我可以幫你。uj5u.com熱心網友回復：
謝謝諸位能給我出謀 能給個用ADO連接操作的EXCEL小實體嗎？我想的是把EXCEL的資料存盤到ACCESS資料庫中讀取里面內容進行操作，還有其他更好的方法 請給個實體uj5u.com熱心網友回復：
我試驗了一下諸位的建議Private Sub Command2_Click()
Dim b As Integer, c As String
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\售后服務量化指標旬報表.xls; Extended Properties='Excel 12.0;HDR=YES'"
cn.Open
Dim rs As New ADODB.Recordset
c = "SELECT * FROM " & 2015.12 & ""
rs.Open c, cn, , adOpenStatic, adLockOptimistic ’這句話無法通過 我的sheet的名稱就是2015.12 我的賦值方法不對嗎？
‘我還試了"SELECT * FROM [" & 2015.12 & "]"這個也不行 請大家指教謝謝
b = rs.RecordCount
End Sub
uj5u.com熱心網友回復：
在Set xlsWorkbook = xlsApp.Workbooks.Open("e:\售后服務量化指標旬報表.xls")陳述句后加一句:Set xlssheet = xlsWorkbook.Worksheets(1)
在我機器上使用是對的.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78276.html
標籤：控件