|
楼主 |
发表于 2017-10-2 10:29
|
显示全部楼层
谢谢老师,复制之前也想过,苦脑的是复制的数据不会用代码粘贴到txt文件内。也想过复制到一张新建的表格内然后把这张表另存为txt格式 ,在网上也找了些代码,最后这样方法解决,请老师看下,哪些地方需要优化下。谢谢- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Dim arr, Ary, k%, PathG$, FSO As Object
- If ThisWorkbook.ReadOnly = False Then
- arr = Sheets("数据库").UsedRange
- ReDim Ary(1 To UBound(arr))
- For k = 1 To UBound(arr)
- Ary(k) = arr(k, 1) & vbTab & arr(k, 2) & vbTab & arr(k, 3) & vbTab & arr(k, 4) _
- & vbTab & arr(k, 5) & vbTab & arr(k, 6) & vbTab & arr(k, 7) & vbTab & arr(k, 8) _
- & vbTab & arr(k, 9) & vbTab & arr(k, 10) & vbTab & arr(k, 11) & vbTab & arr(k, 12) '数据几万行,列现在是12列有时还会加
- Next
- PathG = "e:\借还备份"
- Set FSO = CreateObject("Scripting.FileSystemObject")
- If FSO.FolderExists(PathG) = False Then
- MkDir PathG '//创建文件夹
- End If
- Open "e:\借还备份" & "借出还回" & Replace(Replace(Now(), "/", "-"), ":", "-") & ".txt" For Output As #1
- Print #1, Join(Ary, vbCrLf): Reset
- End If
- End Sub
复制代码 |
|