楼主: sophiesdaisy
6584 8

[实际应用] 请问如何批量将cvs转为excel? [推广有奖]

  • 3关注
  • 1粉丝

已卖:509份资源

讲师

41%

还不是VIP/贵宾

-

威望
0
论坛币
4241 个
通用积分
11.1793
学术水平
5 点
热心指数
6 点
信用等级
3 点
经验
11216 点
帖子
423
精华
0
在线时间
456 小时
注册时间
2008-3-4
最后登录
2024-8-21

楼主
sophiesdaisy 发表于 2012-5-9 16:38:22 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
我有很多cvs格式的文件,30多个,想要都变成excel格式的数据,一个个打开很慢,因为有公式,请问该则么办才好??
二维码

扫码加我 拉你入群

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

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

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

回帖推荐

fbfidwsa 发表于8楼  查看完整内容

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

本帖被以下文库推荐

沙发
yancong529 发表于 2012-5-9 20:06:29
只能用VBA吧
醉舞经阁半卷书,坐井谈天阔

藤椅
sophiesdaisy 发表于 2012-5-10 09:31:10
yancong529 发表于 2012-5-9 20:06
只能用VBA吧
用VBA ?请教高人~~~ 详情?

板凳
yancong529 发表于 2012-5-10 09:52:56
sophiesdaisy 发表于 2012-5-10 09:31
用VBA ?请教高人~~~ 详情?
你这个问题公式没办法搞,VBA应该可以,但是我不会VBA
醉舞经阁半卷书,坐井谈天阔

报纸
sophiesdaisy 发表于 2012-5-10 10:09:39
yancong529 发表于 2012-5-10 09:52
你这个问题公式没办法搞,VBA应该可以,但是我不会VBA
额。。。 好吧 thank you all the same

地板
fbfidwsa 发表于 2012-5-10 18:20:33
我放段程式你瞧瞧
资料可以带进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
已有 1 人评分经验 论坛币 热心指数 收起 理由
客初 + 20 + 20 + 2 热心帮助其他会员

总评分: 经验 + 20  论坛币 + 20  热心指数 + 2   查看全部评分

7
sophiesdaisy 发表于 2012-5-11 13:49:36
fbfidwsa 发表于 2012-5-10 18:20
我放段程式你瞧瞧
资料可以带进excel
你试试看
请问这是什么程序? 该如何使用呢?

8
fbfidwsa 发表于 2012-5-11 19:52:43
Book1.xls (71.5 KB) 我传个档案你瞧瞧
Excel内请把宏的安全性降至最低
按Alt+F11
可看到VBA程式

已有 1 人评分学术水平 热心指数 信用等级 收起 理由
sophiesdaisy + 1 + 1 + 1 太厉害了~~~~!!! 非常棒的程序!!!!!.

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

9
pedro 发表于 2012-5-15 13:12:59
看不懂呢。。。

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-27 05:08