导出数据

ykcbf1100

ddz79101 发表于 2024-10-31 14:08
谢谢老师！运行成功！
但是！不过此代码与我的意思相反了，可能我的表述有问题，我想代码放置在《导出数 ...

那改一下吧。

ykcbf1100

小改一下，代码看上去差不多的。

ddz79101

ykcbf1100 发表于 2024-10-31 14:22
小改一下，代码看上去差不多的。

谢谢老师！我就尝试过改一下，但没有成功。现在有你这2个代码，太好不过了。我试试看

yanglinzi

yanglinzi

不知道能不能满足你的要求

ddz79101

ykcbf1100 发表于 2024-10-31 14:22
小改一下，代码看上去差不多的。

老师！我在你发的表格中运行代码，成功！但在实际操作中却不行，主要是：            wb.Sheets(sht.Name).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
这里出错，显示下标越界，不知是何因？我尝试过以下的：1在 Set ws = ThisWorkbook和For Each sht In ws.Sheets后加array将四表框入也不行。2是有个疑问，代码中哪句体现表名对应呀。问题太多，老师有空回答谢谢

ddz79101

yanglinzi 发表于 2024-10-31 14:48
不知道能不能满足你的要求

谢谢老师！运行成功！美中不足的是，老师讲此2簿放在同个文件夹中运行，若能在不同的文件夹中，有我寻找目标文件夹中则更好。因为我实际中将此2个簿放在不同的分区中。谢谢老师

ddz79101

有请老师帮忙看看

ykcbf1100

ddz79101 发表于 2024-10-31 15:56
老师！我在你发的表格中运行代码，成功！但在实际操作中却不行，主要是：            wb.Sheets(sht.Name ...

上传附件。