如何用VBA指定D3-J7单元格区域导出为数据.txt？

xicu3d

如何用VBA指定D3-J7单元格区域导出为数据.txt？.zip (2.2 KB, 下载次数: 10)

2024-8-30 16:51 上传

点击文件名下载附件

如何用VBA指定D3-J7单元格区域导出为数据.txt？

smuuwl

这种直接录宏就行，反正没有变量

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.30
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     arr = Sheets("Sheet1").[D3:J7].Value
   
5.     p = ThisWorkbook.Path & ""
   
6.     ReDim brr(1 To 10000, 1 To 1)
   
7.     For Each k In arr
   
8.         If k <> Empty Then
   
9.             m = m + 1
   
10.             brr(m, 1) = k
    
11.         End If
    
12.     Next
    
13.     Set wb = Workbooks.Add
    
14.     wb.Sheets(1).[a1].Resize(m, 1) = brr
    
15.     wb.SaveAs Filename:=p & "数据.txt", FileFormat:=xlText
    
16.     wb.Close
    
17.     Application.ScreenUpdating = False
    
18.     MsgBox "OK！"
    
19. End Sub
    
20. 
    

复制代码

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    p = wb.Path & "\"
    f = p & Split(wb.Name, ".xls")(0) & ".txt"
    arr = sht.[d3:j7]
    If Dir(f) <> "" Then Kill f
    Open f For Output As #1
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) <> Empty Then s = s & arr(i, j) & vbCrLf
        Next
'        s = s & vbCrLf
    Next
    Print #1, s
    Close #1
    Beep
End Sub

小凡、、、

excel玉米

yes_cn

excel玉米 发表于 2024-8-30 17:29

不知道楼主要什么样式的，你这样式直接拷贝粘贴就可以了

xicu3d

用vba啊，我这个表格原先是动态的，静态我都不需要弄这些