[已解决]求助-数据转换后部分数据丢失

飞云流水

数据导出PRN文件时丢失部分数据，大师们，帮帮我！谢了，见附件

最佳答案

月排行榜 / 总排行榜

wayy

2012-6-4 12:11

1. Sub 导出PRN文件()
   
2.     Dim x As Workbook, y As Workbook
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Sheet1.Select
   
6.     Sheet1.Copy
   
7.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "S1WL.prn", FileFormat:=xlTextPrinter
   
8.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "S2WL.dat", FileFormat:=xlTextPrinter
   
9.     Application.DisplayAlerts = True
   
10.     Application.ScreenUpdating = True
    
11.     ActiveWorkbook.Close True
    
12. 
    
13. End Sub

复制代码

跳转到最佳答案楼层

wayy

1. Sub 导出PRN文件()
   
2.     Dim x As Workbook, y As Workbook
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Sheet1.Select
   
6.     Sheet1.Copy
   
7.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "S1WL.prn", FileFormat:=xlTextPrinter
   
8.     ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & "S2WL.dat", FileFormat:=xlTextPrinter
   
9.     Application.DisplayAlerts = True
   
10.     Application.ScreenUpdating = True
    
11.     ActiveWorkbook.Close True
    
12. 
    
13. End Sub

复制代码

飞云流水

wayy 发表于 2012-6-4 12:11

多谢，问题解决了！