vb.net操作EXCEL,为什么设置了excelApp.Visible = False,excel仍然出现
在我读取excel中的值之后,过一段时间才显示,不是立刻出来,大约5秒左右.
以下是我的所有代码了.
Private Sub BtOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOpenFile.Click
Dim myStream As Stream = Nothing
Try
OpenFileDialog1.InitialDirectory = "c:"
OpenFileDialog1.Filter = "Excel files (*.xls;*.xlsx)|*.xls;*.xlsx|Csv files(*.csv)|*.csv|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = OpenFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
Dim excelApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
excelApp.Visible = False
Dim excelWorkbook As Excel.Workbook
Dim excelSheet As Excel.Worksheet
Dim excelRange As Excel.Range '定义工作区域
excelWorkbook = excelApp.Workbooks.Open(OpenFileDialog1.FileName)
excelApp.Workbooks.Add(True)
excelSheet = excelWorkbook.Worksheets(1)
excelSheet.Activate()
MsgBox(excelSheet.Cells(3, 1).value.ToString, MsgBoxStyle.Information, "xs")
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Return
Finally
' Check this again, since we need to make sure we didn't throw an exception on open.
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
Catch ex As Exception
MsgBox(ex.Message)
Return
End Try
End Sub
