Sub Books2Sheets()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub

最新文章

1. SQL Server 执行计划利用统计信息对数据行的预估原理二（为什么复合索引列顺序会影响到执行计划对数据行的预估）
2. Javascript-DOM总结
3. Restore Oracle database to another server
4. Unity3D音乐音效研究-MIDI与波表
5. eclipse 启动后，闪退
6. Android性能测试
7. C#制作ActiveX控件及部署升级（摘自网络）
8. json_encode如何防止汉字转义成unicode
9. VC6-Win7下VC++6.0打开多个工程的设置
10. Docker与KVM之间的区别
11. 项目实战9—企业级分布式存储应用与实战MogileFS、FastDFS
12. VisualStudio神级插件Resharper技巧基础入门到骨灰玩家使用全教程+Resharper性能优化
13. 网络编程 生产者消费者模型 GiL
14. .NET Core微服务之路：基于gRPC服务发现与服务治理的方案
15. The Django Book第七章(表单)
16. 2018.10.29 NOIP训练 数据结构（带修改莫队）
17. MEF在运行时替换插件
18. Spring 多数据源事务配置问题
19. ubuntu下安装迅雷thunder
20. APP版本号记录

热门文章

1. Rust-语句和表达式
2. 2.Ceph 基础篇 - 集群部署及故障排查
3. Beats：使用Elastic Stack监控RabbitMQ
4. 工厂里懂得mes和erp有发展吗?
5. 为什么我写的z-index不生效？
6. 2022-08-14-esp32把玩记-③_轻轻松松显示个二维码(esp32+ssd1306显示图片)
7. JavaScript基本语法（JavaScript代码嵌入方式与声明和使用变量）
8. 前端框架Vue------＞第一天学习（3）
9. 齐博x1到底是怎么的存在？
10. 【Odoo】Odoo16-性能优化提升