一叶一追寻110 2017-05-29 03:52 采纳率: 40%
浏览 1070
已结题

excel宏定义问题,输出前三列到txt

我想输出excel表中的前三列内容到txt中,中间用空格隔开。这里有宏定义只是输出前两列,怎么改成输出前三列的?麻烦各位大神帮忙看看了!谢谢!
Sub st()
Dim rg As Object
Dim Strtemp
Dim rc As Long
rc = Application.Max(Range("A" & Rows.Count).End(xlUp).Row, Range("B" & Rows.Count).End(xlUp).Row)

Strtemp = ""
For Each rg In Range("A1:B" & rc)
If rg.Row <= rc Then
If rg.Column = 1 Then
Strtemp = Strtemp & rg.Value & vbTab
Else
Strtemp = Strtemp & rg.Value & vbCrLf
End If

End If

Next
Open ThisWorkbook.Path & "\AB.txt" For Output As #1
Print #1, Strtemp
Close #1

End Sub

  • 写回答

3条回答

  • engchina 2017-05-29 04:04
    关注
    Sub st()
        Dim rg As Object
        Dim Strtemp
        Dim rc As Long
        rc = Application.Max(Range("A" & Rows.Count).End(xlUp).Row, Range("B" & Rows.Count).End(xlUp).Row, Range("C" & Rows.Count).End(xlUp).Row)
    
        Strtemp = ""
        For Each rg In Range("A1:C" & rc)
            If rg.Row <= rc Then
                If rg.Column <> rc Then
                    Strtemp = Strtemp & rg.Value & vbTab
                Else
                    Strtemp = Strtemp & rg.Value & vbCrLf
                End If
            End If
        Next
        Open ThisWorkbook.Path & "\AB.txt" For Output As #1
        Print #1, Strtemp
        Close #1
    
    End Sub
    
    评论

报告相同问题?

悬赏问题

  • ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
  • ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
  • ¥20 有关区间dp的问题求解
  • ¥15 多电路系统共用电源的串扰问题
  • ¥15 slam rangenet++配置
  • ¥15 有没有研究水声通信方面的帮我改俩matlab代码
  • ¥15 ubuntu子系统密码忘记
  • ¥15 保护模式-系统加载-段寄存器
  • ¥15 电脑桌面设定一个区域禁止鼠标操作
  • ¥15 求NPF226060磁芯的详细资料