请教：导出EXCEL设置单元格内容换行问题

accesscx

怎么做下面那样的效果？箱数和每箱数量的内容如果是由 数+空格+数 组成的时候设置成图中蓝色部分那样

roych

把里面的代码改改就好了，如下所示（我就不传附件了）：

1.           .Range("A8") = rs!交货日期
   
2.             .Range("B8") = rs!PO单号
   
3.             .Range("C8") = rs!客户订单号
   
4.             .Range("D8") = rs!产品型号
   
5.             .Range("E8") = rs!产品描述
   
6.             .Range("F8") = rs!总数量
   
7.             .Range("G8") = Eval(Replace(rs!箱数, " ", "+"))
   
8.             .Range("H8") = Eval(Replace(rs!每箱数量, " ", "+"))
   
9.             .Range("I8") = rs!预单号
   
10.             .Range("J8") = rs!备注
    
11.             .Range("K8") = rs!送货地区
    
12.             .Range("K8").Select
    
13.             rs.MovePrevious
    
14.         Loop
    
15.         rs.Close
    
16.         Set rs = Nothing
    
17.     End With

复制代码

好像理解错了，回头再看

accesscx

恩，你的代码是将单元格两个数求和

accesscx

1.设置单元格 格式为文本、自动换行，只能输入6位

2.如果单元格有空格则判断空格的位置，截取空格前的数加上（6-空格前位数）个空格，那么他不是自动换行了吗？但代码没想到怎么写。。。

aslxt

遍历单元格：
Me.Cells(i, j) = Replace(Me.Cells(i, j), " ", Chr(10))

roych

嗯。按LS的做吧，改成：

1.     With objApp
   
2.     sql = "SELECT 交货日期,PO单号,客户订单号,产品型号,产品描述,总数量,箱数,每箱数量,预单号,备注,送货地区 FROM 表1"
   
3.     rs.Open sql, CurrentProject.Connection, 1, 3, 512
   
4.         If rs.RecordCount > 0 Then rs.MoveLast
   
5.         intN = 7 '出货资料模板.xlt第7行
   
6.         Do Until rs.BOF
   
7.             intN = intN + 1
   
8.             '不是第一行明细时插入一行
   
9.             If intN > 8 Then
   
10.                 .Rows("8:8").Select
    
11.                 objApp.Selection.Insert -4122, 1 'xlShiftDown=-4122,xlFormatFromRightOrBelow=1
    
12.             End If
    
13.             '写入订单明细
    
14.             .Range("A8") = rs!交货日期
    
15.             .Range("B8") = rs!PO单号
    
16.             .Range("C8") = rs!客户订单号
    
17.             .Range("D8") = rs!产品型号
    
18.             .Range("E8") = rs!产品描述
    
19.             .Range("F8") = rs!总数量
    
20.             .Range("G8") = Replace(rs!箱数, " ", Chr(10))
    
21.             .Range("H8") = Replace(rs!每箱数量, " ", Chr(10))
    
22.             .Range("I8") = rs!预单号
    
23.             .Range("J8") = rs!备注
    
24.             .Range("K8") = rs!送货地区
    
25.             .Range("K8").Select
    
26.             rs.MovePrevious
    
27.         Loop
    
28.         rs.Close
    
29.         Set rs = Nothing
    
30.     End With

复制代码

accesscx

谢谢！