Sub
Function 导入表(fp, s) 'fp导入文件路径,s导入表名
s = s & "" '导入表名 连接空白是避免表格名为数值时格式不同
If Dir(fp, 16) = Empty..." Then 'csv文件导入
If 表存在(s) Then
v1 = Split(readline(fp, 1), ",")(0)
Sheets(s).Select...)
ActiveSheet.Name = s
Call csv导入(fp, Selection, True) '防止数值大于15位时丢失精度所以用导入
End If...Else '非csv文件导入
Set wb = Workbooks.Open(fp) '打开文件
Range([A:A], [A:A].End(xlToRight)).Copy...导入(fp, rg, Optional ACW) 'fp导入文件路径,rg导入单元格位置,ACW调整列宽
If IsMissing(ACW) Then ACW = Flase
If Dir(fp,