VBA如何读取Excel单元格内的换行?

来源：百度知道 编辑：UC知道 时间：2024/05/17 04:21:05
我想使用VBA把excel中的数据导出到文本文件里.

sheet1的单元格A1的内容有格内换行符:
Step1: bla bla bla
Step2: bla bla bla

使用VBA读取该单元格用的是sheet1.cells(1,1).value
可是读取出来的字符串没有换行符了.
谢谢若水流深.我试了一下,取出的字符串不包含chr(10),所以replace前后的字符串是相等的.

合适位置加入如下代码即可：

dim mystr as string

'如果是读入cells(i,j)的数据，可以用(这个代码不要加value)

mystr=sheet1.cells(i,j)

接下来把mystr存到你的文本中去就行了

ps：没有试过，貌似可以的。

用下replace(sheet1.cells(1,1),chr(10),chr(13))
替换一下看看,前面那个是换行符,后面那个是回车符.将换行符替换位回车符应该可以吧.
呵呵,可惜的是不知道这里的换行是怎么编码的啊