vb excel操作出错 - VB / 控件
下面是我从我的另外一个帖子中拷过来的，想引起更多人帮忙，所以另发新帖，请各位帮忙看下，谢谢啦！
是对一个excel中多行进行sum出错
引用 2 楼 king06 的回复:
VB code
Range("A1:A101").Select
Range("A101").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)" '第101行记录这个和是多少.
我使用的是这位同学的方法，但是现在遇到另外一个问题
我的程序重复运行时报错 object variable or with block variable not set
报错行是 ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)" 报错对象是ActiveCell.FormulaR1C1
下面是我的对Excel操作的代码，麻烦各位给看一下，问题处在哪，谢谢！
--定义
Dim excelApp As Excel.Application
Dim excelBook As Excel.Workbook
Dim excelSheet As Excel.Worksheet
--打开Excel对象
Set excelApp = CreateObject("Excel.Application")
Set excelBook = excelApp.Workbooks.Open(excelPath)
Set excelSheet = excelBook.Worksheets(1)
--对excel的操作等
excelSheet.Cells(endRow, 1) = "汇总:"
excelSheet.Range("C5:C" & endRow).Select
excelSheet.Range("C" & endRow).Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
--对excel的关闭等操作
excelApp.Visible = True
excelBook.SaveAs savePath
excelBook.Save
&nbs
相关问答：
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
