怎么把这段VBA转成VB6的写法？

yz1025 发布于 2023-05-25 15:56， 838 次点击

VBA录制代码:

Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

想把EXCEL内资料使用TAB做分隔符号?

3 回复

yz10252023-05-25 16:29

Set Selection = sh.Columns("B:B")
Selection.TextToColumns Tab:=True

搞定

yz10252023-05-25 16:32

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.DisplayAlerts = False '把Excel的警告讯息关掉

前面要加取消警告，不然会一直跳确认按钮

独木星空2023-05-25 21:59

回复 2楼 yz1025

自己能解决的问题，还是自己解决较好。