关于excel->csv文件的转换 需要使用宏，高分求助

目的是要将excel表转换为csv格式
以便导入oraclecsv中的字段 部分来自于excel文件的字段数据，部分是系统字段 需插入一个固定的数值。
最好做成一个嵌在excel里的类似于宏一样的程序。大家给点思路吧。当然其实用手工改excel成csv也很快 但是客户变态 没办法。谢谢

解决方案 »

  1.   

    当然其实用手工改excel成csv也很快,不知楼主说的是什么意思如果是换个文件类型存储则filecopy  然后存成CSV的文件好了
      

  2.   

    不光只是换类型还要用到excel里的部分数据
      

  3.   


       用VBA写一个函数搞定!
      

  4.   

    ActiveWorkbook.SaveAs Filename:="C:\aa.csv", FileFormat:=xlCSV,CreateBackup:=False
    在函数里写上这个就可以保存成CSV的文件了。
      

  5.   

    你可以自己录制一个宏，我录的代码是这样的Sub 宏1()
    '
    ' 宏1 Macro
    ' ChenJingSn 记录的宏 2004-11-30
    ''
        ChDir "C:\Documents and Settings\CJS\桌面"
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Documents and Settings\CJS\桌面\新建 Microsoft Excel 工作表.csv", FileFormat:= _
            xlCSV, CreateBackup:=False
    End Sub
    将路径改一下吧
      

  6.   

    ActiveWorkbook.SaveAs Filename:="C:\aa.csv", FileFormat:=xlCSV,CreateBackup:=False
    在函数里写上这个就可以保存成CSV的文件了。
    你有什么具体的细节问题，没有说清楚，，其实，录制一下宏，就都明白了。
      

  7.   

    VBA程序应该比 普通程序 简单点
      

  8.   

    多些楼上各位，呵呵 偶就是从来没弄过宏 细节的话嘛，不是单纯的要改变文件格式，因为源表里的数据我只使用几个(比如客户代码，客户名称)然后再添加几个系统字段(比如一些删除flag,系统时间)构成了我需要的csv文件。这样的宏应该怎样录制呢 还请楼上几位高人点拨
      

  9.   

    其实不是很难.你要确定你需要源数据表里有用数据的位置,以便检索到后保存,其他的都可设为空;或者将有用的数据检索到后传送到新表内,再另存成CSV格式,用控件可以完成.若有必要,请提供你的源数据样板以供参考.