求助关于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