willsonlincake 发表于 2022-4-30 15:53:13

VBA输出每一行内容

Sub Example()
Dim strAll As String
Dim arrString() As String
Selection.WholeStory
strAll = Selection.Range.Text
arrString = Strings.Split(strAll, vbCr)
End Sub

Starrry 发表于 2022-4-30 20:36:33

vbCr = Carriage Return (13)
vbLf = Line Feed (10)

以前我是用vbCrLf

Starrry 发表于 2022-4-30 20:37:24

本帖最后由 Starrry 于 2022-4-30 20:41 编辑


不同平台有不同换行符:
13=Mac
10=Linux
13+10=Windows

willsonlincake 发表于 2022-5-1 09:35:36

Starrry 发表于 2022-4-30 20:37
不同平台有不同换行符:
13=Mac
10=Linux


感谢指点

Starrry 发表于 2022-5-1 15:39:33

willsonlincake 发表于 2022-5-1 09:35
感谢指点

你谦虚了,大家一起学习!

Starrry 发表于 2022-5-6 18:37:17

vbCrLf 在C#就是 "\r\n"
页: [1]
查看完整版本: VBA输出每一行内容