| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan Bestem Hvis et regneark Exists Brug Excel.Application
    VBA er en automatisering og makro programmeringssprog udviklet af Microsoft , der er inkluderet , og bruges i nogle af Microsofts kerneprodukter herunder Microsoft Office. VBA i overensstemmelse med Microsoft COM (Component Object Model ), hvor den ser og bryder programmer såsom Excel til objekter for programmører at interagere og manipulere programmet. Objektet Application betragtes som den højeste objekt i Microsoft Excel-objekt model. Den repræsenterer Excel selve ansøgningen . Alle andre objekter, såsom : projektmappe , regneark og celler er under det. Oprettelse af et program til at teste , om en bestemt regneark findes i din projektmappe er enkel , når du indleder et opkald til Excel Application objekt. Instruktioner
    1

    Åbn Microsoft Excel.
    2

    Klik på "Funktioner ", " Macro " og derefter klikke på " Visual Basic ". Dette vil åbne VBA programmering miljø .
    3

    Klik på " Indsæt ", " Modul ". Du er nu i et programmeringssprog kodemodulet

    Skriv eller kopiere og indsætte følgende kode : .

    Funktion WorksheetExists ( _

    FullPathToWorkbook As String , _
    < p > WorksheetName As String _

    ) Som Boolean

    Dim objExcel As Object

    Dim objWorksheet As Object

    Set objExcel = CreateObject ( " Excel.Application " )

    objExcel.Workbooks.Open " c: \\ Projekt1.xls "

    For Each objWorksheet I objExcel.ActiveWorkbook.Worksheets
    p Hvis objWorksheet.Name = " Sheet3 " Så Salg

    WorksheetExists = Sand

    MsgBox ( " Arbejdsark eksistere" )

    Exit For

    End If

    Næste objWorksheet
    < p> objExcel.ActiveWorkbook.Close saveChanges : = False

    Set objExcel = Nothing

    End Function

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan Flertrådskonflikter i Visual Basic 
    ·Sådan ændres skrifttype i Access VBA 
    ·VBA Coding Tricks 
    ·Sådan bruges TabStrip Control i Visual Basic 
    ·Hvordan laver to tabeller i en ListBox i VB.net 
    ·Hvordan til Compact MS Access DB i VB 
    ·Sådan Set Up DAO Recordset i Visual Basic 
    ·Sådan udforske Visual Basic værktøjskassen 
    ·Hvordan man laver en linje graf med Visual Basic 
    ·Sådan sparer et projekt om Visual Basic 
      Anbefalede Artikler
    ·Hvordan laver Graphic Borders 
    ·Sådan Derive en variabel til en anden klasse i Java 
    ·Sådan oprettes en Keylogger Brug Python 
    ·Sådan oprettes MySQL-databaser til at installere DSN 
    ·Læsning TXT -filer i VBScript 
    ·Sådan Send SMS Brug Java-programmer 
    ·Hvordan man gør en Multiple Insert i PHP 
    ·Kommenterede metoder i Java 
    ·Sådan slettes linjer fra tekstfil i PowerShell 
    ·Sådan Gør Preorder Traversal i Binary Tree i Java 
    Copyright © Computer Viden http://www.computerdk.com