請教如何利用VBA實現將工作表複製到另工作簿中

2021-07-08 20:30:32 字數 1325 閱讀 9002

1樓:依然特雷西

1、開發工具——vb。

2、輸入**:sub 複製表() dim mybook1 as workbook  set mybook1 = workbooks.open("c:

\users\administrator\desktop\工作表1.xls")  sheets("移動表").select   sheets("移動表").

copy before:=workbooks( _ "工作表2.xls").

sheets(1)mybook1.closeend sub。

3、開發工具——巨集。

4、執行——複製表。

5、如圖,複製完成。

2樓:陽光上的橋

vba使用工作表的copy方法複製,用after或者before指定複製到的位置,否則複製到新工作簿,例如:

workbooks("檔案一.xlsx").sheets("表一").copy after:=workbooks("檔案二.xlsx").sheets("表2")

3樓:姓王的

例如將a.xls工作簿的sheet1工作表複製到b.xls工作簿的sheet1,可用如下**:

workbooks("a.xls").sheets("sheet1").

cells.copy workbooks("b.xls").

sheets("sheet1").range("a1")

如何用vba把一個工作簿中的工作表內容複製到另一個彙總工作簿裡面的指定的工作表裡面去?

4樓:司馬刀劍

將工作薄a 的工作表移動到工作簿b中

開啟兩個工作簿 a 和b

選取工作簿a中所需要的工作表,右鍵

移動或複製

選擇工作簿b

建立副本 即可

如何用excel vba 將一個工作簿中的一個工資表複製到另一個工作簿中的工資表 10

5樓:十全十美的暱稱

我是女生,選中整個工作表複製到指定的根目錄下就行

6樓:匿名使用者

可以寫程式做到,但說來話長

7樓:匿名使用者

sub copysheet()

dim ws1 as worksheet

set ws1 = thisworkbook.worksheets("sheet16")

ws1.copy thisworkbook.sheets(sheets.count)

end sub

如何在excel中用巨集(VBA)實現VLOOKUP的功能

function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n end fun...

ArcGIS10中如何實現將向量圖層轉化為柵格圖層

toolbox裡的conversion tools to raster feature to raster。toolbox裡面找到 feature to raster arcgis中如何把柵格灰度值轉換成屬性值並參與統計?可以把柵格轉換成向量資料,柵格的屬性值會賦值給向量資料的屬性表中。arcgis...

jsp如何實現將表單外和表單同時提交給後臺

實現思路就是在表外做一個隱藏的div,之後做一個button按鈕,之後直接將所有的資訊彙總到此button的點選事件中統一提交。舉例 function submit 自己寫一個查詢按鈕的點選事件,然後在這個事件裡面,把區域2中的值寫入到區域中的隱藏域中,然後再提交form表單 在區域1中加入,然後在...