Wonder220 2023-04-16 16:33 采纳率: 100%
浏览 8
已结题

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

  • 写回答

2条回答 默认 最新

  • Wonder220 2023-04-16 16:40
    关注

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 4月24日
  • 已采纳回答 4月16日
  • 请详细说明问题背景 4月16日
  • 创建了问题 4月16日

悬赏问题

  • ¥200 基于同花顺supermind的量化策略脚本编辑
  • ¥20 Html备忘录页面制作
  • ¥15 黄永刚的晶体塑性子程序中输入的材料参数里的晶体取向参数是什么形式的?
  • ¥20 数学建模来解决我这个问题
  • ¥15 计算机网络ip分片偏移量计算头部是-20还是-40呀
  • ¥15 stc15f2k60s2单片机关于流水灯,时钟,定时器,矩阵键盘等方面的综合问题
  • ¥15 YOLOv8已有一个初步的检测模型,想利用这个模型对新的图片进行自动标注,生成labellmg可以识别的数据,再手动修改。如何操作?
  • ¥30 NIRfast软件使用指导
  • ¥20 matlab仿真问题,求功率谱密度
  • ¥15 求micropython modbus-RTU 从机的代码或库?