一个Excel文件有多个sheet工作表，现在要将每个工作表单独保存为txt文件。

小哈哈哈sad

总表里最少有1000+个单张表 ，每张表有A列500条数据，其余空白，    拿手单点   手断了也点不完  我是新人  代码方面一点都不懂， 求各位大神帮忙写代码，
因工作需要  只能TXT格式

liulang0808

1. Sub Macro1()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     For Each sh In ThisWorkbook.Sheets
   
5.         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sh.Name & ".txt", FileFormat:=xlText
   
6.         ActiveWindow.Close
   
7.     Next sh
   
8.     Application.DisplayAlerts = True
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

liulang0808

1. Sub Macro1()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     For j = ThisWorkbook.Sheets.Count To 1 Step -1
   
5.         ThisWorkbook.Sheets(j).Copy
   
6.         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ThisWorkbook.Sheets(j).Name & ".txt", FileFormat:=xlText
   
7.         ActiveWindow.Close
   
8.     Next j
   
9.     Application.DisplayAlerts = True
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。

小哈哈哈sad

谢谢 各位大神

everbest2015

Sub ChaiFen_To_Txt()
    Dim sh As Worksheet, wb As Workbook, wkb As Workbook, mypath$
    Dim m&, t!
    Set wb = ThisWorkbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "指定一个文件夹存放结果"
        If .Show Then
            mypath = .SelectedItems(1)
        Else
            MsgBox "你还没有指定用哪个文件夹存放结果!", , "退出"
            Exit Sub
        End If
    End With
    If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
    t = Timer
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
        For Each sh In wb.Worksheets
                sh.Visible = xlSheetVisible
                sh.Copy
                m = m + 1
                Set wkb = ActiveWorkbook
                With wkb
                        .SaveAs Filename:=mypath & sh.Name & ".txt", FileFormat:=xlText
                        .Close False
                End With
        Next
    Application.DisplayAlerts = True: Application.DisplayAlerts = True
    MsgBox "源数据被拆分成" & m & "个txt文件" & Chr(10) & "程序运行共记时" & Format(Timer - t, "0.0") _
    & "秒!", , "提示"
End Sub