求助关于VB动态控制EXCEL表格边框 - VB / 基础类
我用以下代码往EXCEL里添加数据，最后要把表格边框设置出来，使用了录制宏的办法
一个是在加了一行数据以后添加边框，一种是全部数据都添加完毕后，用一个按键为整个表格添加边框（下列代码为后者），但是都出现了对象变量或with块变量未设置的提示，后来我试了一下，启动程序后不添加数据，直接添加边框是成功的，但是再次点击添加边框又是这个提示，怀疑是range的问题，请高手们帮忙指点一下啊
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim hang As Long '计算添加了几行数据
’添加一行数据
Private Sub Command2_Click()
Dim content(10) As String
content(0) = Time
For i = 1 To 9 Step 2
content(i) = 12.5
Next
For i = 2 To 10 Step 2
content(i) = 22.11
Next
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False '不显示是否保存
Set xlBook = xlApp.Workbooks.Open("C:\exper.xls")
On Error GoTo 0
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False '不显示出创建的文件
xlSheet.Activate
For i = 0 To 10
xlSheet.Cells(hang, i + 1) = content(i)
Next
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
