我想知道如何在VB中控制EXCEL分页.

Question

呵呵，你把所有的with多加全就OK了

Answer 1

就怎么点东西
    Range("E8").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
那里有WITH啊!~~~

Answer 2

lyj(流浪):
      我是指反复调用它,因为我有很多程序要调用,所以就出错了.
也就是,本程序在运行,本程序中的一个过程调用过以后,不退出程序,又调用它,
就这样它就出错了!!!

Answer 3

你在什么环境下用的呢？VB？VBA？告诉我好吗？

Answer 4

With xlsheet
   With .Range(str1).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
   End With
End Wtih
你看的明白吗？

Answer 5

第二个END WITH 怎么是红的啊!!!!

Answer 6

‘但不能多次调用’：其实我给你的代码是画线用的，如果只用.Borders(xlEdgeLeft）则第一次使用正常，之后提示出错。如果用了.Range(str1).Borders(xlEdgeLeft）则解决了多次调用的问题了，明白了吗？

Answer 7

Dim str1 As String
Dim xlsheet As Excel.WorksheetSet xlsheet = xlBook.Sheets(1)
str1 = "E8"With xlsheet
  With .Range(str1)
        .HPageBreaks.Add Before:=ActiveCell
        .VPageBreaks.Add Before:=ActiveCell
  End With
End Wtih你试试这段代码。