Torna al Thread

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' apro excel e lo nascondo Dim appExcel As New Microsoft.Office.Interop.Excel.Application appExcel.Visible = False ' di seguito metto il riferimento al file che mi interessa, sarebbe utile poterlo selezionare all'avvio o spostare il riferimento su un file ini e aggiungere tra le opzioni la possibilità di cambiare file Dim WB As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open("C:\Users\max\Documents\pratiche.xls") Dim WS As Microsoft.Office.Interop.Excel.Worksheet = WB.Worksheets("Foglio1") Dim a As String a = WB.Name 'questo è solo un messaggio che mi avvisa quale file sto usando, non conosco il codice per aggiungere il nome del foglio, ho provato con WS.Name ma mi da comunque il nome del file e non il nome del foglio MsgBox("il file " & a & " è accessibile") End Sub Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize If System.Windows.Forms.FormWindowState.Minimized = WindowState Then NotifyIcon1.ShowBalloonTip(5, "Scadenziario", "Controllo Scadenze Attivo", ToolTipIcon.Info) Me.Hide() End If End Sub Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click Me.Close() End Sub End Class
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5