[已解决]请教ZJDH或那么的帅关于导出的问题！！！！！

zhqsl · 发表于 2012-8-26 22:30

本帖最后由 zhqsl 于 2012-8-26 23:01 编辑

按照你（ZJDH，在此再次表示感谢）提供的新代码，导出速度果然很快，不过又出现新问题了，导出的表格中“来源代码列”不是原来的文本形式了，也就是由原来的“03”变成了“3”，如何在导出的新表中还继续保持原来的“03”即文本格式？最好是在现有VBA代码的基础上进行改进。

导出1.zip (103.56 KB, 下载次数: 4)

zhqsl · 发表于 2012-8-27 22:17

zjdh帮助回答过我的以前的类似问题，其他各路高手都可以指点指点啊，不胜感激

zhqsl · 发表于 2012-8-29 10:19

郁闷啊，没有人回答

那么的帅 · 发表于 2012-8-29 13:14

3 显示成03 要设置单元格格式为文本，
修改后代码为

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 3 To Worksheets.Count
If Worksheets(i).Visible = 0 Then
X = 1
Worksheets(i).Visible = -1
End If
Worksheets(i).Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveSheet.Columns("D:D").NumberFormatLocal = "@"
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
ActiveWorkbook.Close True
If X = 1 Then
Worksheets(i).Visible = 0
X = 0
End If
Next
End Sub

复制代码

zhqsl · 发表于 2012-8-29 15:14

非常感谢那么的帅，你真的那么的帅

		自动登录	找回密码
密码			注册

[已解决]请教ZJDH或那么的帅 关于导出的问题！！！！！

相关帖子

[已解决]请教ZJDH或那么的帅关于导出的问题！！！！！