VBA獲取excel行和列

2021-07-11 14:41:46 字數 1535 閱讀 6100

sub 拷貝資訊()

dim workbooktmp as workbook

dim worksheettmp as worksheet

dim rangtmp as range

dim i%

dim j%

'當前工作**可以使用thisworkbook

'也可以

debug.print thisworkbook.name

debug.print activeworkbook.name

'按行拷貝資訊

set workbooktmp = workbooks.open("c:\users\administrator\desktop\excelproj\luoehu17620079311443842528.xls")

set worksheettmp = workbooktmp.sheets(1)

j = worksheettmp.usedrange.columns.count

debug.print "column num is ->" & j

for i = 1

to worksheettmp.usedrange.rows.count

debug.print "row num is ->" & i

'pring row data

next

另外今天練習中遇到乙個91的錯誤。記錄如下:

物件變數或 with 塊變數沒有設定(錯誤 91)

建立物件變數有兩個步驟。

首先必須先宣告物件變數。然後必須用 set 語句將乙個正確的引用賦值給物件變數。同樣地,with…end with 塊必須先用 with 語句進入點來執行初始化。此錯誤有以下的原因和解決方法:

試圖使用的物件變數,還沒有用乙個正確物件的引用來賦值。

給物件變數指定或再指定乙個引用。例如,如果在下列的**中省略 set 語句的話,那麼引用 myobject 將會產生錯誤:

dim myobject as object 』 建立物件變數。

set myobject = sheets(1) 』 建立乙個正確的物件引用。

mycount = myobject.count 』 計數值賦給 mycount。

**試圖用的物件變數已經被設為 nothing。

set myobject = nothing 』 釋放此物件。**

mycount = myobject.count 』 引用了已釋放的物件。

再指定引用給物件變數。例如,使用新的 set 語句給物件設定新的引用。

此物件是正確的物件,但沒有被設定,因為在物件庫中,在 「引用」 對話方塊中沒有被選取。

在 「新增引用」 對話方塊選擇物件庫。

在 with 塊內goto 語句的去向。

不要跳進 with 塊。確保塊使用 with 語句進入點以執行初始化。

當選了 「設定下一條語句」 命令時,在 with 塊內指定了一行。

with 塊必須用 with 語句執行初始化。

獲取excel指定列

def get time process 如果表不存在,則建立workbook 存在則匯入 wb workbook 表不存在,建立 wb load workbook process free result.xlsx 表存在,匯入 建立和使用sheet ws1 wb.create sheet free...

pandas獲取指定的列和行

house info pd.read csv house info.csv 1 取行的操作 house info.loc 3 6 類似於python的切片操作 2 取列操作 house info price 這是讀取csv檔案時預設的第一行索引 3 取兩列 house info price trad...

pandas獲取指定的列和行

house info pd.read csv house info.csv 1 取行的操作 house info.loc 3 6 類似於python的切片操作 2 取列操作 house info price 這是讀取csv檔案時預設的第一行索引 3 取兩列 house info price trad...