一个工作薄中的工作表生成多个工作薄

fawcqgzxr · 发表于 2023-7-6 21:28

求助各位大侠，一个工作薄中有多个工作表，有什么办法可以快速将工作表生成对应的工作薄，并且以工作表名命名为工作薄名。

求帮助！
谢谢各位大侠！

多个工作表生成多个工作薄.rar (14.13 KB, 下载次数: 9)

LIUZHU · 发表于 2023-7-6 22:02

这种例子太多了，搜索下论坛

shiruiqiang · 发表于 2023-7-6 22:05

LIUZHU · 发表于 2023-7-6 22:08

JSA的版本

LIUZHU · 发表于 2023-7-6 22:09

附件，需要WPS测试

ykcbf1100 · 发表于 2023-7-7 08:01

参与一下。

cyq4896 · 发表于 2023-7-7 08:08

参与一下......

fzxba · 发表于 2023-7-7 08:55

Sub test0()
Dim p As String, f As String
Dim Conn As Object, wks As Worksheet
p = ThisWorkbook.Path & "\分簿"
If Dir(p, vbDirectory) = "" Then MkDir p
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 XML;Data Source=" & ThisWorkbook.FullName
For Each wks In Worksheets
f = p & Application.PathSeparator & wks.Name & ".xlsx"
If Dir(f) <> "" Then Kill f
Conn.Execute "SELECT * INTO [" & f & "].[" & wks.Name & "] FROM [" & wks.Name & "$]"
Next
Conn.Close
Set Conn = Nothing
Beep
End Sub

复制代码

Lovertdos · 发表于 2023-7-7 13:15

LIUZHU 发表于 2023-7-6 22:09
附件，需要WPS测试

这都用上WPS了还写代码？
WPS本身就有个拆分表格的基础功能

LIUZHU · 发表于 2023-7-7 16:53

Lovertdos 发表于 2023-7-7 13:15
这都用上WPS了还写代码？
WPS本身就有个拆分表格的基础功能

WPS的那个拆分功能达不到效果，因为拆分后要按照工作表的名称命名，这个自动拆分功能是达不到的

		自动登录	找回密码
密码			免费注册

[求助] 一个工作薄中的工作表生成多个工作薄