2022-08-06 00:48来源:m.sf1369.com作者:宇宇
办法有几种:
1:使用IE浏览器的,直接倒导出成excel即可
2:复制表格区域,先复制到word里面,再从word里面复制到excel里面即可!(这个办法简单,而且保留数据,也去掉了很多网页里讨厌的格式)
3、web查询的办法,可以及时动态更新及数据,但我不太喜欢这个功能,不常用,不过对于动态调用来说,很方便!
XLS为电子表格文件,默认为Excel文档,该一类型的文件可以使用Excel或者WPS等办公软件打开。
Excel文件(xls)具有丰富的公式和数据处理功能,嵌入到企业管理系统中,比如财务数据模型、风险分析、保险计算、工程应用等。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
SubCombineWorkbooks()
DimFilesToOpen, ft
Dimx AsInteger
Application.ScreenUpdating = False
OnErrorGoToerrhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:=Micrsofe Excel文件(*.xlsx), *.xls, _
MultiSelect:=True, Title:=要合并的文件)
IfTypeName(FilesToOpen) = booleanThen
MsgBox 没有选定文件
'GoTo errhandler
EndIf
x = 1
Whilex <= UBound(FilesToOpen)
Setwk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox 合并成功完成!
errhandler:
' MsgBox Err.Description
'Resume errhandler
EndSub
运行这个代码就可以