请问如何批量将cvs转为excel？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我有很多cvs格式的文件，30多个，想要都变成excel格式的数据，一个个打开很慢，因为有公式，请问该则么办才好？？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel cvs excel 如何

只能用VBA吧

yancong529 发表于 2012-5-9 20:06
只能用VBA吧

用VBA ？请教高人~~~ 详情？

sophiesdaisy 发表于 2012-5-10 09:31
用VBA ？请教高人~~~ 详情？

你这个问题公式没办法搞，VBA应该可以，但是我不会VBA

yancong529 发表于 2012-5-10 09:52
你这个问题公式没办法搞，VBA应该可以，但是我不会VBA

额。。。 好吧 thank you all the same

我放段程式你瞧瞧
资料可以带进excel
你试试看
=====
Public Sub doaads()
    Dim FileName_A As String   '宣告存放档名变数
    Dim FilePath As String     '宣告存放档案路径变数
    FilePath = ThisWorkbook.Path & "\"   '取得目前活页簿的路径
    FileName_A = "aa.csv"                '要开启的档名
    '===============================
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & FileName_A '先开启档案
    '=========================
    '选取区间汇入
    Set myrng1 = Workbooks(FileName_A).Sheets("aa").Range("A1:D300") '选择要复制之范围
    Set myrng2 = ThisWorkbook.Sheets("Sheet2").Range("A1:D300")      '选择要贴上之位置,通常是A1,放在Sheet2
    myrng1.Copy Destination:=myrng2
    ThisWorkbook.Sheets("sheet1").Activate '画面停留在主档
    Workbooks(FileName_A).Close
End Sub

fbfidwsa 发表于 2012-5-10 18:20
我放段程式你瞧瞧
资料可以带进excel
你试试看

请问这是什么程序？ 该如何使用呢？

Book1.xls (71.5 KB)

2012-5-11 19:52:08 上传

我传个档案你瞧瞧
Excel内请把宏的安全性降至最低
按Alt+F11
可看到VBA程式

看不懂呢。。。