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

xicu3d

ykcbf1100老师，能不能保留原来的空格，现在输出后空格都不会显示了，这样我的动态数据没有用了。

xicu3d

quqiyuan老师犯了和ykcbf1100老师一样的错误。

xicu3d

excel玉米老师，你的结果完全正确，可是我用excel2003和excel2010版本怎么老是出现错误的，能稍微改改吗

xicu3d

小凡、、、老师，不是获取坐标，输出结果参考excel玉米老师发的图。

xicu3d

smuuwl 发表于 2024-8-30 16:59
这种直接录宏就行，反正没有变量

没有用的，不信你试试。

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 & Chr(9) Else s = s & arr(i, j) & Chr(9)
        Next
        s = s & vbCrLf
    Next
    Print #1, s
    Close #1
    Beep
End Sub

xicu3d

quqiyuan 发表于 2024-8-30 20:23

谢谢quqiyuan大神，这就是我想要的答案。