", , "打开", , True) '选择文件
If TypeName(selectfiles) = "Boolean" Then '若未选择则结束程序运行
Exit Sub
End If
关闭功能..." Then 'csv文件导入
If 表存在(s) Then
v1 = Split(readline(fp, 1), ",")(0)
Sheets(s).Select...导入(fp, Selection, True) '防止数值大于15位时丢失精度所以用导入
End If
Else '非csv文件导入
Set wb = Workbooks.Open...csv导入(fp, rg, Optional ACW) 'fp导入文件路径,rg导入单元格位置,ACW调整列宽
If IsMissing(ACW) Then ACW = Flase
If Dir(fp....RefreshStyle = xlOverwriteCells '插入模式=覆盖(还有插入行和插入列选择)
.SavePassword = False
.SaveData = True
.AdjustColumnWidth