heroxianf 发表于 2016-5-23 12:00:26

合并两个EXCEL中的SHEET表[已解决]

本帖最后由 heroxianf 于 2016-5-26 09:01 编辑

我查了函数没有操作SHEET合并的，我想实现，1.xlsx中的sheet1 覆盖 2.xlsx中的sheet1，请坛友帮帮想想法子~

附件是在学习中论坛搜索到的老版本EXCEL UDF补全版本，有需要的朋友慢慢研究~


kk_lee69 发表于 2016-5-23 17:41:27

回复 1# heroxianf


      Sheets("工作表1").Select
    Sheets("工作表1").Copy Before:=Workbooks("2.xlsx").Sheets(1)
    Windows("1.xlsx").Activate

heroxianf 发表于 2016-5-23 18:00:28

回复 2# kk_lee69
{:face (270):}   我回去下个老版本的EXCELUDF版本试试，谢谢了。

h20040606 发表于 2016-5-24 06:37:54

回复 3# heroxianf


    我一般也是就像 lee69那样，先录制vba,然后改造成au3

heroxianf 发表于 2016-5-24 07:09:29

回复 4# h20040606


    最近用表格多一点，在学习，有时候改不来！

heroxianf 发表于 2016-5-24 09:45:23

回复 2# kk_lee69


    KK   这个宏也不是覆盖替换，二是重命名，是不是要自己删除原有的工作薄在命名过来呢？

kk_lee69 发表于 2016-5-24 21:13:22

回复 6# heroxianf

新增一個 再刪除原本的不就等同覆蓋??

h20040606 发表于 2016-5-25 10:24:11

我的建议是新建一个excel文件，将需要的sheet页复制过来。这样也有个备份。

heroxianf 发表于 2016-5-25 11:01:13

回复 8# h20040606


    嗯，我正在向如何复制过来SHEET名称保持不变~

heroxianf 发表于 2016-5-25 14:25:33

回复 7# kk_lee69


    KK我找的这个老版本的EXCEL UDF不支持保存格式为XLSX   如果你那里支持能否分享一下。

kk_lee69 发表于 2016-5-25 21:34:06

回复 10# heroxianf


    我的版本是也是舊版本不支援 XLSX不過

理論上只是存檔格式問題可以自己改才對

h20040606 发表于 2016-5-26 07:19:01

EXCEL保存为xlsx格式
$oExcel.saveas(文件全路径名,51)

heroxianf 发表于 2016-5-26 08:58:58

回复 12# h20040606

谢谢大家，对EXCEL操作貌似有进步了一点点~
页: [1]
查看完整版本: 合并两个EXCEL中的SHEET表[已解决]