zotyouri 2018-09-29 01:31
浏览 684

VB.net 处理Excel2010时设置app.Visible = False无效

各位大侠

求~~~~~~~~

test1只往excel sheet 单元格A1中写入内容时如果将app.Visible = False的话,excel窗口不会被打开为当前窗口,能正常隐藏在后台。

test2在excel表中追加了二维码QRmarker外部控件,在sheet1中插入一个二维码,通过点击按钮给二维码赋值。**也是同样进行app.Visible = False,但是excel窗口还是会显示出来,不会隐藏,有没有什么办法可以不让其显示。**

备注:
1.QRmarker控件 https://blog.bccn.net/tlliqi/16654
2.QRmarker控件在excel中的使用方法:http://blog.51cto.com/windyli/284574

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core

test1:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim app As Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet

    '
    Dim filename As String
    filename = "C:\test1.xlsx"
    app = CreateObject("Excel.Application")
    app.Visible = False
    book = app.Workbooks.Open(filename)
    sheet = book.Worksheets("Sheet1")
    sheet.Range("A1").Value = "test1"
    book.Save() '保存
    app.Quit() '終了
    ' 解放
    sheet = Nothing
    book = Nothing
    app = Nothing
    System.GC.Collect()
End Sub

** test2:**
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim app As Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet

    Dim filename As String
    filename = "C:\test2.xlsx"
    app = CreateObject("Excel.Application")
    app.Visible = False
    book = app.Workbooks.Open(filename)
    sheet = book.Worksheets("Sheet1")
    sheet.Range("A2").Value = "test2"

    Dim QRString1 As String = "test22222222222222"
    With sheet.QRmaker1
        .ModelNo = 2
        .CellPitch = 5
        .CellUnit = 200
        .QuietZone = 0
        .InputData = QRString1
        .ShapeRange.Width = 50
        .ShapeRange.Height = 50
        .AutoRedraw = 1
        '.AutoRedraw = ArOn
        .Refresh()
    End With
    book.Save() '保存
    app.Quit() '終了
    ' 解放
    sheet = Nothing
    book = Nothing
    app = Nothing
    System.GC.Collect()
End Sub
  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
    • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
    • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
    • ¥30 3天&7天&&15天&销量如何统计同一行
    • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
    • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
    • ¥15 vs2019中数据导出问题
    • ¥20 云服务Linux系统TCP-MSS值修改?
    • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
    • ¥20 怎么在stm32门禁成品上增加查询记录功能