请教怎么在vba中设置excel文件排版,工作急需,谢谢

rtmx01

原码如下(借用论坛的):  

Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet

   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets.Add
  

  xlSheet.Cells(1, 1).Value = "第一次考试成绩"
   xlSheet.Cells(2, 1).Value = "语文成绩"
   xlSheet.Cells(3,1).Value = "90分"
   xlSheet.SaveAs "c:\Temp.xls"
   xlBook.Close


请教在代码中实规:

(1)怎样设置整个第一列的整列宽为5厘米,用英制单位也行.

(2)怎样合并A1，A2单元格。

(3)怎样高能置第二行的行高

（4）怎样在第二行后插入强制分页符

(5)怎样实现excel表中的页面设置功能中的"顶端标题行"设置的功能,使得当要分二页分印时每一页的开头都自动在第一行打出"第一次考试成绩",第二行打出"语文成绩"

fan0217

你这个问题其实很好解决，在EXCEL中录制宏，然后看看代码，做一些小改动就OK了 。

Eric666

建议用Access只进行打开文件的控制,在Excel中编写代码,当文件一打开就自动运行相关程序进行排版操作即可!