vb 選擇所需的 Excel 工作簿

由於不完整，我在我自己的專案中嘗試了您的問題。 代替你自己。

主要原因是應用下有很多視窗，所以不能直接啟用，獲取應用後必須指定windows索引（比如command2下的**）

真實也很重要。

可以通過啟用工作簿（例如命令 1 下的 **）來啟用它，這是推薦的。

除錯後，我可以同時執行這兩種方法。

private sub command1_click()dim wb as

set wb = getobject("d:\")= true

end sub

private sub command2_click()dim wb as

trueend sub

set xlsheet =

1) =1111 '帆橋為兇猛網格（row、col）的單態友分配乙個值。

a = , 1)

e：工作報告行。 xls"

右鍵單擊表格的標籤並返回到所選內容"View**“，將開啟”Microsoft Visual Basic for Applicaions“視窗，所有表格將出現在左側，雙擊任何表格，右側將乾燥。 如果要返回表，請在左側的表列表中選擇表，然後右鍵點選“檢視物件”，純淨世界洞穴將返回選中的表。

good lock！

dim h1, h2, l1, l2

h1 = 5: h2 = 8 '所選行的第一行和最後一行號。

l1 = c": l2 = e" '所選內容的第一列和最後一列的數目。

ge = l1 + trim(h1) +l2 + trim(h2)range(ge).select

L1、L2、H1、H2 是表示行號和列號的變數。 難道不是要求“在 VB 語言的 Excel 工作表中選擇區域”嗎？ ，這是VB的**！

新增為參考，如下所示：

建立工作簿物件。

dim workbook as workbook = new workbook()

載入 excel 文件。

獲取第二個工作表。

dim sheet as worksheet =

Excel 中的 VB 語言稱為 VBA，您可以使用 ** 在 VBE 中建立乙個新語言。

Excel 版本參考：2010

演示：建立乙個名為 test 的工作表。

1. Alt+F11 進入 VBE 視窗。

2. 右鍵單擊工作表 tab-insert-module。

3. 輸入**：

sub test()

sheets( = "test"

end sub

4. 按 F5 檢視工作表，新建立的測試表已建立。

你可以使用 ：set xlsheet=

然後，您可以使用 xlsheet 來操作新錶。

1） 將以下段落複製到個人巨集工作簿的模組中，並準備呼叫子 movesheets（）。

dim w as workbook, ws as workbook, sht as worksheet, i as integer

set w = workbooks("原始檔的名稱")set ws = workbooks("目標檔案的名稱")for each sht in

i =after:=

nextend sub

2）開啟這兩個檔案並再次執行巨集。

工作表的名稱在行上處理，不要複製第二個工作簿的名稱，要複製的工作簿的名稱是工作簿。

複製到工作簿的工作簿的名稱。

子巨集 1（）。

dim i, s

with workbooks("練習 冊")for i = . to 1 step -1s = .sheets(i).name

sheets(i).name = "工作簿 1" & ss = .sheets(i).name

sheets(i).copy before:=workbooks("練習 冊").sheets(1)

nextend with

不儲存關閉工作簿 1

workbooks("練習 冊").close falseend sub

它不是VB語言，而是VBA語言，用複製方法複製，用貼上方法貼上。 如何貼上它並轉到幫助進行檢查。