久久精品中文字幕av,av.涩涩涩涩涩涩涩涩,亚洲国产日韩欧美精品成人久久久,成人福利电影免费在线观看,日产国产原创av,日韩av午夜激情,bt天堂中文字幕,超级碰人妻在线视频,欧美老熟妇久久一区二区

>[info] 需求：要將非常多的EXCEL的內(nèi)容導(dǎo)入Mysql，且不是能直接導(dǎo)入的格式 > 代碼作用：將多個(gè)EXCEL文件 合并到一個(gè)excel中 一個(gè)文件 > 宏代碼調(diào)用快捷鍵 **ALT+F11** 或 點(diǎn)擊 **開(kāi)發(fā)工具 - VB** > 插入/新建 **模塊** 復(fù)制已下內(nèi)容 后 點(diǎn)擊 **運(yùn)行** ``` # i是變量 i后面的數(shù)字是 將內(nèi)容填到第幾行 Sub 循環(huán)打開(kāi)工作簿提取固定位置數(shù)據(jù)() Application.ScreenUpdating = False myfile = Dir(ThisWorkbook.Path & "\*.xls*") i = 1 Do While myfile <> "" If myfile <> ThisWorkbook.Name Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile) i = i + 1 ThisWorkbook.Worksheets(1).Cells(i, 2) = wb.Worksheets(1).Range("d2") '需要修改range("d2")為你需要提取的單元格地址 ThisWorkbook.Worksheets(1).Cells(i, 3) = wb.Worksheets(1).Range("a1") ThisWorkbook.Worksheets(1).Cells(i, 4) = wb.Worksheets(1).Range("c8") wb.Close False End If myfile = Dir Loop Application.ScreenUpdating = True MsgBox "完成" End Sub ```