一叶一追寻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
    
    评论

报告相同问题?

悬赏问题

  • ¥50 有数据,怎么建立模型求影响全要素生产率的因素
  • ¥50 有数据,怎么用matlab求全要素生产率
  • ¥15 TI的insta-spin例程
  • ¥15 完成下列问题完成下列问题
  • ¥15 C#算法问题, 不知道怎么处理这个数据的转换
  • ¥15 YoloV5 第三方库的版本对照问题
  • ¥15 请完成下列相关问题!
  • ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?
  • ¥15 求daily translation(DT)偏差订正方法的代码
  • ¥15 js调用html页面需要隐藏某个按钮