Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel inplace auf VB Form erstellen

Mitglied: raziel

raziel (Level 1) - Jetzt verbinden

13.07.2011, aktualisiert 13:57 Uhr, 3297 Aufrufe, 4 Kommentare

Ich möchte auf einem Form über VB2008 eine Art Excel inplace erstellen (ähnlich SAP). Nun Habe ich schon etwas vorbereitet, jedoch gibt mir VB einen deklarierungsfehler bei den "ActiveWorkbook" und "ActiveSheet". Auch einen Operaatorenfehler bei "If Err() < 0 ". Ich dachte die Befehle sollten doch von dem Verweis der Excel Library übenommen werden. Weiss jemand dazu rat?

01.
 
02.
Public Class frmExcelInplaceWdb 
03.
 
04.
    Public oExl As New Microsoft.Office.Interop.Excel.Application 
05.
 
06.
    Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String) 
07.
        Dim A As Object 
08.
        Dim Zeile As Long, Spalte As Integer 
09.
        ' Workbook öffnen 
10.
        On Error Resume Next 
11.
        oExl.Workbooks.Open(sWSName) 
12.
        If Err() <= 0 Then 
13.
            MsgBox("Exceldatei konnte nicht gefunden oder geöffnet werden.", _ 
14.
              vbExclamation, "Dateifehler") 
15.
            Exit Sub 
16.
        End If 
17.
 
18.
        On Error GoTo 0 
19.
 
20.
        ' Tabelle selektieren: 
21.
        ActiveWorkBook.Sheets(sTabName).Select() 
22.
 
23.
        ' Zelle lesen 
24.
        A = ActiveSheet.Cells(Zeile, Spalte).Value 
25.
 
26.
        ' Zelle schreiben 
27.
        ActiveSheet.Cells(Zeile, Spalte).Value = "Test" 
28.
 
29.
        ' alles schließen 
30.
        ActiveWorkbook.Close(SaveChanges:=True) 
31.
        oExl.Quit() 
32.
        oExl = Nothing 
33.
    End Sub 
34.
 
35.
 
36.
End Class 
37.
 
Mitglied: SlainteMhath
13.07.2011 um 13:25 Uhr
Moin,

[...] VB2008 [...]
Du meinst sicher VB.NET bzw Visual Studio 2008

[...] deklarierungsfehler bei den "ActiveWorkbook" und "ActiveSheet" [...]
Versuch doch mal ein oExl. davor zustellen

If Err() < 0
Das ist so auch falsch. Err() ist ein Array, das kannst Du nicht gegen einen Integer prüfen. Abgesehen davon erledigt mal das Errorhandling in VB.NET mit Try...Catch.

Und, bitte, Benutze die CODE tags, siehe "Formatierungshilfe" beim Posten

lg,
Slainte
Bitte warten ..
Mitglied: 76109
13.07.2011 um 13:42 Uhr
Eventuell hilft Dir das ein wenig weiter?
01.
Public Class frmExcelInplaceWdb 
02.
 
03.
Public oExl As New Microsoft.Office.Interop.Excel.Application 
04.
 
05.
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String) 
06.
Dim A As Variant, Wkb As Object, Wks As Object 
07.
Dim Zeile As Long, Spalte As Long 
08.
 
09.
On Error Resume Next 
10.
 
11.
Set Wkb = oExl.Workbooks.Open(sWSName) 
12.
 
13.
Set Wks = Wkb.Sheets(sTabName) 
14.
 
15.
'If oExl.Err.Number <> 0 Then MsgBox "Fehler":  Exit Sub 
16.
 
17.
'If Wks Is Nothing Then MsgBox "Fehler":  Exit Sub 
18.
 
19.
On Error GoTo 0 
20.
 
21.
A = Wks.Cells(Zeile, Spalte).Value 
22.
 
23.
Wks.Cells(Zeile, Spalte).Value = "Test" 
24.
 
25.
Wkb.Close True 
26.
 
27.
oExl.Quit 
28.
 
29.
End Sub 
30.
 
31.
End Class
Gruß Dieter
Bitte warten ..
Mitglied: mathe172
13.07.2011 um 13:50 Uhr
Hallo,

wenn ich dich richtig verstehe, hast du einen Verweis in den Projekteigenschaften gemacht, oder?
Hast du den Namensraum aber Importiert (direkt unter den Verweises oder am Anfang einer Code-Datei)

MfG,
Mathe172
Bitte warten ..
Mitglied: raziel
13.07.2011 um 15:40 Uhr
@Didi: Hallo DidiDanke für dieses Script, es ist fehlerlos. Leider kann ich daraus nicht ablesen wie ich jetzt ein bestimmtes File öffne.
@Mathe: Verweis zu was? Dito Namespace ;)

Gruss
raziel
Bitte warten ..
Ähnliche Inhalte
Visual Studio

VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld)

gelöst Frage von nepixlVisual Studio7 Kommentare

Hallo Admins, sitze aktuell an einem kleinen Problem. Per VB wird das Tool NCFTP(.exe) gestartet, NCFTP arbeitet allerdings im ...

Visual Studio

(VB) Form-Elemente nicht wie im Entwurf angeordnet

gelöst Frage von MrCountVisual Studio2 Kommentare

Servus zusammen, ich habe ein sehr kurioses Problem: In Visual Studio Express 2015 habe ich ein VB-Projekt erstellt. In ...

C und C++

Erstellen einer Windows Forms-Anwendung

gelöst Frage von KnuefiC und C++5 Kommentare

Hallo und guten Tag zusammen, da ich sehr wenig Ahnung von Windows Forms Anwendungen habe und noch blutiger Anfänger ...

Batch & Shell

Kontrolle einer Excel Datei in Form eines Scripts

Frage von ProkuratBatch & Shell3 Kommentare

Hallo zusammen. Ich stehe momentan vor dem Problem das ich ca. 150 Excel Dateien kontrollieren soll, ob der dort ...

Neue Wissensbeiträge
CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 1 StundeCPU, RAM, Mainboards1 Kommentar

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 10 StundenWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Windows Server

Windows Server 2016: Achtung - ab heute gibt es wieder Express Updates

Information von kgborn vor 20 StundenWindows Server1 Kommentar

Kurze Info für Administratoren, die Windows Server 2016 per WSUS/SCCM mit Updates betanken. Ab heute gibt es für Windows ...

Windows Netzwerk
Windows Admin Center - Sagt was ihr braucht!
Tipp von Juanito vor 2 TagenWindows Netzwerk18 Kommentare

Hallo zusammen, der ein- oder andere hat sicherlich schon vom Windows Admin Center gehört. - Microsoft's neue Adminkonsole welche ...

Heiß diskutierte Inhalte
Entwicklung
Meine Nachbarn sehen meinen Internet Trafic
gelöst Frage von beatnguEntwicklung52 Kommentare

Hallo Also ich wohne in einem Mehrparteien Haus mit 24 wohnungen. Meine nachbaren im letzten stock fummeln immer an ...

Microsoft Office
Lizenzierung
Frage von opc123Microsoft Office29 Kommentare

Hallo, eventuell ein oft bekanntes Thema. Office 365 ist mir zu teuer, da wir als Bildungsträger andere Konditionen beim ...

Windows 10
Windows 10 mit CRITICAL PROCESS DIED
Frage von liquidbaseWindows 1028 Kommentare

Das aktuelle Problem was ich habe steht bereits im Threadtitel. Etwas mehr zum Hintergrund soll nun folgen. Problemkind ist ...

Voice over IP
Andere Rufnummer bei abgehenden Gesprächen vom All-IP-Anschluß der Telekom anzeigen
Frage von vafk18Voice over IP19 Kommentare

Ich möchte bei abgehenden Gesprächen vom All-IP-Anschluß der Telekom meine Handynummer hinterlegen, damit ich Rückrufe jederzeit empfangen kann. Derzeit ...