VB基本问题，已经运行了

基本的VB语言，要被自己气哭了。
运行起来，提示这个，其实代码的功能基本都实现了。

Function openfiledlg() As String
    With CommonDialog1
        .DialogTitle = "打开水准观测文件"
        .Filter = "(Excel File)|*.xlsx;*.xls"
        .ShowOpen
    End With
    openfiledlg = CommonDialog1.filename
End Function
Private Sub 坝面组Input_Click(Index As Integer)
Dim xlapp As Object, i As Integer, n As Integer, filename As String, filepath As String, rng As Range, LDdate As String
Set xlapp = CreateObject("Excel.Application")
Dim xlbook As New Excel.Workbook '定义工作簿
Dim xlsheet As Excel.Worksheet '定义工作表
'Dim exlApp As New Excel.Application '定义exlapp为Excel文件
Dim exlbook As Workbook '定义exlbook为工作表文件
filename = openfiledlg()
        Set exlbook = xlapp.Workbooks.Open(filename) 'Excel文件路径及文件名
         xlapp.Visible = True '显示Excel窗口
  '表头处理
   LDdate = Application.InputBox("请输入观测日期，以便于一次性填入指定位置", "输入观测时间", "始")
     
 
    For i = 1 To exlbook.Worksheets.Count
    '表尾处理
   Set rng = Sheets(i).Range("A1045876").End(xlUp).Offset(-3, 0) 
    rng.Value = "观测：白义鑫"        **这里提示：应用程序定义或对象定义错误**
  Sheets(i).Range("B4").Value = "Dini03"
  Sheets(i).Range("D4").Value = LDdate
  Sheets(i).Range("G3").Value = "土质："
  Sheets(i).Range("H3").Value = "砼（地面）"
  Sheets(i).Range("I2").Value = "水准仪编号："
    Next
   exlbook.Save  '保存工作簿
   xlapp.Quit   '关闭Excel
     xlapp.DisplayAlerts = False
End Sub

刚记错了，是在 这句代码：Set rng = Sheets(i).Range("A1045876").End(xlUp).Offset(-3, 0) 提示：应用程序定义或对象定义错误*

• 帮你找了个相似的问题, 你可以看下: https://ask.csdn.net/questions/345125
• 除此之外, 这篇博客: VB程序设计练习题(二）中的 九、编写一个程序，用随机函数产生4行5列的两位整数并输出。然后分别实现第1行和第三行数据交换和第2行和第4行交换，输出交换前和交换后的结果。（利用图片框） 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• 

  答案：

  Private Sub Command1_Click()

  For i = 1 To 4

      For j = 1 To 5

      If i = 1 Then

          t(j) = a(i, j)

          a(i, j) = a(3, j)

      End If

      If i = 3 Then

          a(i, j) = t(j)

      End If

      If i = 2 Then

          m(j) = a(i, j)

          a(i, j) = a(4, j)

      End If

      If i = 4 Then

          a(i, j) = m(j)

      End If

      Next

  Next

  For i = 1 To 4

      For j = 1 To 5

          P2.Print a(i, j);  

      Next

      P2.Print

  Next

  End Sub

  Private Sub Form_Load()

  Dim i, j As Integer

  For i = 1 To 4

      For j = 1 To 5

          a(i, j) = Int(Rnd * (99 - 10 + 1) + 10)

          P1.Print a(i, j);

      Next

      P1.Print

  Next

  End Sub

  ---