Wonder220 2022-11-17 15:37 采纳率: 100%
浏览 8
已结题

VB问题,问题不大,奈何自己太笨

######VB语言问题
各位专家,这是一个VB语言问题,这些代码以及实现了一部分功能,但只能打开特定的 1 这个excel文件, 怎么在这个基础上继续实现,弹出打开对话框,然后打开我选中的excel文件,并执行下面的格式调整操作

Private Sub Command2_Click()

Dim xlapp As Object, i As Integer, n As Integer, filename As String, filepath 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为工作表文件
xlapp.Visible = True '显示Excel窗口
Set exlbook = xlapp.Workbooks.Open("F:\丹电\2022年工作\2022年11月合理化建议\vb\VB\1.xlsx") 'Excel文件路径及文件名
arr = Array(4.5, 9, 8.38, 10, 9.13, 9.25, 6.5, 9.25, 9.25, 13)
For n = 0 To UBound(arr)
For i = 1 To exlbook.Worksheets.Count
' If exlbook.Sheets. <> "高差表" Then

With Workbooks("1.xlsx").Sheets(i).Range("E:E,F:F,H:H,I:I,j:j")
    .NumberFormatLocal = "0.00000_ "
        With Workbooks("1.xlsx").Sheets(i).Range("C:C,D:D,G:G")
        .NumberFormatLocal = "0.00_ "
        With ActiveWorkbook.Sheets(i)
       .Cells(1, n + 1).ColumnWidth = arr(n)
  End With

End With
End With
'End If
Next
Next
xlapp.DisplayAlerts = False
exlbook.Close True '先保存修改再关闭工作簿
xlapp.Quit '关闭Excel
End Sub

我的解答思路和尝试过的方法
怎么在这个基础上继续实现,弹出打开对话框,然后打开我选中的excel文件,并执行下面的格式调整操作
  • 写回答

2条回答 默认 最新

  • 浪客 2022-11-17 16:01
    关注
    vb添加CommonDialog部件。
    
    Function openfiledlg() As String
        With CommonDialog1
            .DialogTitle = "打开文件"
            .Filter = "(Excel File)|*.xlsx;*.xls"
            .ShowOpen
        End With
        openfiledlg = CommonDialog1.FileName
    End Function
    
    使用
    Filename = openfiledlg()
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 11月26日
  • 已采纳回答 11月18日
  • 创建了问题 11月17日

悬赏问题

  • ¥20 配置UGM库出现问题
  • ¥15 把Excel导入MATLAB显示错误怎么解决?
  • ¥15 Java中消息和缓存如何使用
  • ¥50 易语言把MYSQL数据库中的数据添加至组合框
  • ¥20 求数据集和代码#有偿答复
  • ¥15 关于下拉菜单选项关联的问题
  • ¥20 java-OJ-健康体检
  • ¥15 rs485的上拉下拉,不会对a-b<-200mv有影响吗,就是接受时,对判断逻辑0有影响吗
  • ¥15 使用phpstudy在云服务器上搭建个人网站
  • ¥15 应该如何判断含间隙的曲柄摇杆机构,轴与轴承是否发生了碰撞?