关于一个文件合并的问题

lss001

gymmie 发表于 2024-10-30 17:48
这个问题关键出在了，如果是在宏里点代码列表执行就没问题，我原来代码和您的修改都是正常没问题的。而把 ...

查看一下
Excel选项→数据→自动数据转换
→删除前导零并转换为数字←是否勾选

gymmie

lss001 发表于 2024-10-30 21:24
查看一下
Excel选项→数据→自动数据转换
→删除前导零并转换为数字←是否勾选

此项前期已经取消过勾选

lss001

gymmie 发表于 2024-10-31 14:29
此项前期已经取消过勾选

'如果是设置没问题
'可参考以下代码

Sub getcsv()
Dim obj As Workbook, sht As Worksheet
Dim sht1 As Worksheet, ph As String

Set sht = Sheet1 '指定目标表
'指定数据表
ph = ThisWorkbook.Path & "\xxx.csv"
'获取数据表对象/csv
Set obj = GetObject(ph, "Excel.Sheet")

Set sht1 = obj.Worksheets(1) '指定数据表
sht1.Cells.Copy '复制全部*****
sht.Cells(1, 1).Select '激活1
sht.Paste '粘贴
sht.Cells(1, 1).Select '选择2

'完成重置剪贴板
Application.CutCopyMode = False
obj.Close SaveChanges:=False '关闭
ThisWorkbook.Save '保存
MsgBox "已完成！"
End Sub