【难难难】

如何使excel根据填入的内容自动调整行高度？列固定.  
  字体、字号可能不同，在VB中控制。 问题点数：20、回复次数：1Top

1 楼yangzhaoyu（老妖）回复于 2002-02-14 11:30:54 得分 20

Dim   xlsApp   As   Excel.Application  
  Dim   xlsWBS   As   Excel.Workbooks  
  Dim   xlsWB   As   Excel.Workbook  
  Dim   xlsWS   As   Excel.Worksheet  
  Private   Sub   Command1_Click()  
          Set   xlsApp   =   New   Excel.Application  
          xlsApp.Visible   =   True  
          Set   xlsWBS   =   xlsApp.Workbooks  
          Set   xlsWB   =   xlsWBS.Open("c:\test.xls")  
          Set   xlsWS   =   xlsWB.Sheets(1)  
          With   xlsWS  
                  .Cells(1,   1).Rows.AutoFit'对(1,1)所在行按(1,1)调节  
                  .Cells(1,   2).Columns.AutoFit'对(1,2)所在列按(1,2)调节  
   
          End   With  
  End   Sub  
  Top

相关问题

• excel
• xlswb
• xlsapp
• xlsws
• autofit
• 调节
• 所在
• as excel
• cells
• sub

• 帖主：pauldlx
• yangzhaoyu

• Visual Basic类图书
• Visual Basic类源码下载