vb写Excel,如何自动换行?

Question

如在一个单元格内写上张三,李四,
写成
张三
李四
而有几行却是不固定的,如何写呀?

Answer 1

dim ss as string ss= "张三" & vbCrLf & "李四"ExcelObj.workbook.worksheet(1).cell("A1").text=ss就可以了， 自己信手写来，具体的属性自己去找。

Answer 2

Dim app As Excel.Application
Set app = CreateObject("Excel.Application")
app.Visible = True
app.Workbooks.Open "d:\test.xls"
app.Range("B6").Select
app.ActiveCell.FormulaR1C1 = "asd" & Chr(10) & "111"