用excle中vb脚本，把.CSV文件导入.XLS文件中

rryellow · 发表于 2017-12-20 15:33

用excle中vb脚本，把.CSV文件导入.XLS文件中。导入过程需要处理，以“；”为标记转换为新的一列（如：excel自带的导入功能一样）。由于是新手，大佬们帮忙用 vb代码实现下，在线等。。。。。。

rryellow · 发表于 2017-12-20 15:41

不要沉啦。。。。。。。。。。。

uynayna · 发表于 2017-12-20 15:52

论坛是讨论问题的地方，急不得，会的没有时间，我有时间，不会。

rryellow · 发表于 2017-12-20 15:55

uynayna 发表于 2017-12-20 15:52
论坛是讨论问题的地方，急不得，会的没有时间，我有时间，不会。

谢谢！0o0!!!! 过来凑人气

uynayna · 发表于 2017-12-20 16:04

Sub InputCSV()
Dim Wb As Workbook
Dim Arr
Set Wb = GetObject(Application.GetOpenFilename("csv文件,*.csv", , "请选择", , False))
Arr = Wb.ActiveSheet.Range("A1").CurrentRegion
Wb.Close False
For i = 1 To UBound(Arr)
brr = Split(Arr(i, 1), ";")
r = [a65536].End(xlUp).Row + 1
Range("A" & r).Resize(1, UBound(brr)) = brr
Next
End Sub

复制代码

rryellow · 发表于 2017-12-20 17:13

uynayna 发表于 2017-12-20 16:04

谢谢，我刚刚那个测试代码，可以用实现功能呢，但是需要在指定单元格开始存放数据，需要修改哪些代码呢？

rryellow · 发表于 2017-12-21 16:05

uynayna 发表于 2017-12-20 16:04

大佬，问一下，我要怎么自动读取指定文件的.CSV文件呢？

rryellow · 发表于 2017-12-21 16:17

问题搞定，可以放松下

		自动登录	找回密码
密码			免费注册

[求助] 用excle中vb脚本，把.CSV文件导入.XLS文件中