Question

求助一个excel编程的问题

excel有这么多sheet，我想把每个sheet作为一个文本文档导出，例如2.txt；3.txt······这样子。文本文档的分隔符为tab。谢谢！
还有就是每个sheet里面的曲线图怎么导出呢

Answer 1

把下面代码复制到

Sub totxt()

With ActiveWorkbook

    For i = 1 To .Sheets.Count

        .Sheets(i).Copy

        ActiveWorkbook.SaveAs Filename:="d:\test\" & .Sheets(i).Name & ".txt", FileFormat:=xlText

        ActiveWorkbook.Close (False)

    Next

End With

End Sub

导出的文件在D:\text目录下  (目录要先提前建好）

追问

还有就是每个sheet里面的曲线图怎么导出呢

追答

TXT文件不支持图片，所以只能导出Excel里的字符

Answer 2

下面的代码就可以：

Sub xxx()
    Dim st As Worksheet
    For Each st In Sheets
        st.SaveAs Filename:=st.Name & ".txt", FileFormat:=xlUnicodeText
    Next st
End Sub

默认保存在“我的文档”里面的，如果需要保存都其它地方，请自行修改脚本

追问

还有就是每个sheet里面的曲线图怎么导出呢

追答

文本没办法保存曲线的，保存EXCEL曲线最好的方法当然是使用EXCEL格式。