请老师帮忙看下，谢谢

gdw831001

请老师帮忙写个代码，点保存按钮——把  数据源  工作表数据保存一份到指定位置 f:\备份    格式为txt,文件名为当前时间 now

gdw831001

不会吧!!!!!!!!!!!!!!!

duquancai

gdw831001 发表于 2017-9-27 12:15
不会吧!!!!!!!!!!!!!!!

你都是铁杆级别坛友了！

gdw831001

duquancai 发表于 2017-9-27 12:17
你都是铁杆级别坛友了！

老师，这不是级别高就行的，帮忙写个吗，前段时间excel文件损坏，导致数据全丢了

gdw831001

老师都吃饭去了吗

maditate

gdw831001 发表于 2017-9-27 12:38
老师都吃饭去了吗

就凭你混到能手级了，我相信你完全可以独立解决这个问题。
第一步，先copy数据源这张工作表。因这张工作表是深度隐藏的，先要用代码去深度隐藏。第二步就是copy，第三步就是把此有再深度隐藏。注意，因你前一步已经copy了工作表，现在当前活动工作表是一个新的只有一张工作表的文件，还没保存过。因此，在深度隐藏工作表的时需要指明是那个文件的工作表。

工作表已经拷贝出来了，接下来你就可以用录制宏的办法，去录制宏，看看系统是如何写代码的，你就把系统的代码作适当的修改，整合到你的代码中去就可以了。

gdw831001

maditate 发表于 2017-9-27 12:53
就凭你混到能手级了，我相信你完全可以独立解决这个问题。
第一步，先copy数据源这张工作表。因这张工作 ...

谢谢老师，复制之前也想过，苦脑的是复制的数据不会用代码粘贴到txt文件内。也想过复制到一张新建的表格内然后把这张表另存为txt格式 ，在网上也找了些代码，最后这样方法解决，请老师看下，哪些地方需要优化下。谢谢

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim arr, Ary, k%, PathG$, FSO As Object
   
3.      If ThisWorkbook.ReadOnly = False Then
   
4.         arr = Sheets("数据库").UsedRange
   
5.         ReDim Ary(1 To UBound(arr))
   
6.         For k = 1 To UBound(arr)
   
7.             Ary(k) = arr(k, 1) & vbTab & arr(k, 2) & vbTab & arr(k, 3) & vbTab & arr(k, 4) _
   
8.                 & vbTab & arr(k, 5) & vbTab & arr(k, 6) & vbTab & arr(k, 7) & vbTab & arr(k, 8) _
   
9.                 & vbTab & arr(k, 9) & vbTab & arr(k, 10) & vbTab & arr(k, 11) & vbTab & arr(k, 12)  '数据几万行，列现在是12列有时还会加
   
10.         Next
    
11.         PathG = "e:\借还备份"
    
12.         Set FSO = CreateObject("Scripting.FileSystemObject")
    
13.         If FSO.FolderExists(PathG) = False Then
    
14.             MkDir PathG    '//创建文件夹
    
15.         End If
    
16.         Open "e:\借还备份" & "借出还回" & Replace(Replace(Now(), "/", "-"), ":", "-") & ".txt" For Output As #1
    
17.         Print #1, Join(Ary, vbCrLf): Reset
    
18.     End If
    
19. End Sub

复制代码

gdw831001

!!!!!!!!!!!!!!!!!!!!!!!