一 .界面简单设计如下: 二 .代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.Data.OleDb; using System.Data.S
功能:当前文件夹中所有Excel文件中 多个工作簿的第一个工作表 复制到工作簿中 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd Then '定义单个文件变量 Dim vrtSelectedItem As
1 . 文件比较多,需要把这么多的数据都导入到DB里面,一个个导入太慢了,能想到的是先把数据整个到一个Excel中,然后再导入 2. 第一步准备合并Excel,新建一个新的excel,命名为totaldata.xlsx,记得excel2016版本不支持xlsx导入,只支持xls的选择,所以把上面的后缀名统一改为.xls 3.双击打开totaldata.xlsx,Alt+F11,快速打开编辑器,双击"Sheet1",输入如下脚本 Sub 工作薄间工作表合并() Dim FileOpen