[已解决]急，复制逗号文件的数据出现点号，而且复制后数据全错了,紧急

tongjingwei

我弄了一个小的vba程序把Inventory1 中的逗号文件的数据复制到chart的文件中，前100行的数据还都正确，但是100行之后的数据就都变成了点号的，见截图，1000行之后点号的问之就 都错了。这是为什么啊，1000行以后的数据在截图1里面，比如第1001行应该是 171,1000,251,1000（见最后一个 截图 ），但是在数据中的点就弄错了啊 谢谢了

最佳答案

月排行榜 / 总排行榜

suye1010

2013-1-13 20:02

1. Sub Copydata()
   
2. Dim wb As Object, arr0, arr, i As Integer
   
3. With GetObject(ThisWorkbook.Path & Application.PathSeparator & "Inventory1.csv")
   
4.     arr0 = .Sheets(1).Range("A1").CurrentRegion
   
5.     .Close False
   
6. End With
   
7. ReDim arr(1 To UBound(arr0))
   
8. For i = 1 To UBound(arr0)
   
9.     arr(i) = Join(Application.Index(arr0, i, 0), ",")
   
10. Next i
    
11. With Range("A1").Resize(UBound(arr), 1)
    
12.     .NumberFormatLocal = "@"
    
13.     .Value = Application.Transpose(arr)
    
14. End With
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Sub Copydata()
   
2. Dim wb As Object, arr0, arr, i As Integer
   
3. With GetObject(ThisWorkbook.Path & Application.PathSeparator & "Inventory1.csv")
   
4.     arr0 = .Sheets(1).Range("A1").CurrentRegion
   
5.     .Close False
   
6. End With
   
7. ReDim arr(1 To UBound(arr0))
   
8. For i = 1 To UBound(arr0)
   
9.     arr(i) = Join(Application.Index(arr0, i, 0), ",")
   
10. Next i
    
11. With Range("A1").Resize(UBound(arr), 1)
    
12.     .NumberFormatLocal = "@"
    
13.     .Value = Application.Transpose(arr)
    
14. End With
    
15. End Sub
    

复制代码

suye1010

你导入数据的时候默认的是数据格式是数值，可以在最后一步中设置导入的数据格式为 文本，问题应该就被解决了
试试吧。

tongjingwei

suye1010 发表于 2013-1-13 20:17
你导入数据的时候默认的是数据格式是数值，可以在最后一步中设置导入的数据格式为 文本，问题应该就被解决了 ...

谢谢回复，请问这个能用一个VBA的程序直接实现吗？？包括复制数据后在根据逗号进行分列？？
谢谢了啊

爱疯

1#附件Inventory1.csv里，并没1楼图片里含逗号数据啊？

tongjingwei

suye1010 发表于 2013-1-13 20:02

霸气，还能加几句代码然后直接复制过来后自动的按照逗号分列了呢？？
谢谢了