|
|
Informationen über getobject |
Excel Tabelle auslesen Fehler excel.workbook |
Verfasst am: 24.05.2011, 13:33 Aufrufe: 937
Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String
Dim XL As New Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
Dim z As Integer
Dim wbk As String
' Excel öffnen
On Error Resume Next
XL = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear( ...
|
Excel Tabelle auslesen Fehler excel.workbook |
Verfasst am: 24.05.2011, 13:13 Aufrufe: 937
Interop
Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String
Dim XL As New Excel.Application
Dim XLWorkBooks As New Excel.Workbook 'hier wird der Fehler verursacht
Dim XLWorkSheet As New Excel.Worksheet
Dim z As Integer
Dim wbk As String
' Excel öffnen
On Error Resume Next
XL = GetObject(, "Excel.A ...
|
Viele Exchange Postfächer anlegen |
Verfasst am: 27.12.2010, 14:50 Aufrufe: 436
.. falls dem so sein sollte, bitte verschieben.
Danke und Gruß
gonzales
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))
For i = 1 To 100
Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
objLeaf.Put "sAMAccountName" ...
|
Einsteiger braucht Hilfe bei Application.OnTime |
Verfasst am: 10.12.2010, 09:50 Aufrufe: 490
Anbei mal der Code (der komplett in einem Modul verfasst ist)
Dim r As Range
Sheets(1).Activate
Range("a2:a1000").Clear
Set Groups = GetObject("LDAP://OU=Sicherheitsgruppen,OU=firma,DC=domäne,DC=local")
Groups.Group = Array("group")
Set r = Range("a2")
For Each objGroup In Groups
r = objGroup.Name
...
|
Betriebssystemabfrage an Remoterechner |
Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210
Value = SeparateField(sContents, vbCrLf & KeyName & "=", vbCrLf)
End If
End If
If isempty(Found) Then Value = Default
GetINIString = trim(Value)
End Function
'*** Betriebssystem auslesen ***
'msgbox GetOSVersion()
Function GetOSVersion()
strComputer = "Systemname"
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") ...
|
Betriebssystemabfrage an Remoterechner |
Verfasst am: 25.08.2010, 08:56 Aufrufe: 1210
|
Win7 - VB6 - Computername setzen |
Verfasst am: 14.10.2009, 09:09 Aufrufe: 849
|
Bestimmte Registry Keys oder Values überwachen |
Verfasst am: 29.06.2009, 14:22 Aufrufe: 1306
Beschreibung:Diese Klasse überwacht veränderungen in der Registry entweder an einem Key oder an einem Wert.Wenn man einen Key überwacht wird das Event immer dann ausgelöst wenn irgendetwas an diesem Key geändert wird wie z.B. es wird unter diesem Key ein neuer Key angelegt oder es wird ein Wert geändert.Wenn man einen Wert überwacht wird das Event immer nur dann ausgelöst wenn auch genau dieser Wert verändert wird.Fu ...
|
Windows XP Key ändern |
Verfasst am: 29.06.2009, 14:13 Aufrufe: 1315
Beschreibung:Mit der Funktion kann man den Windows XP Key ändern.Funktioniert aber erst ab SP1Funktion:Visual Basic: Quelle: dotnet-snippets.de
|
[VB.NET] Export nach Excel Problem |
Verfasst am: 30.04.2009, 15:50 Aufrufe: 1172
Add
BK = GetObject(StdPath & "template\PhaseLine.
|
Funktionsweise einer Sin Console |
Verfasst am: 06.05.2008, 17:18 Aufrufe: 1134
|
Speichern & Laden von Datein |
Verfasst am: 15.10.2007, 14:48 Aufrufe: 665
|
addoleobjekt größe definieren wie? |
Verfasst am: 21.07.2003, 12:01 Aufrufe: 287
hallo, hier ein proteil: Set mydoc = GetObject(strdatei) Set wordapp = mydoc.Application .Selection.InlineShapes.AddOLEObject ClassType:="Word.Picture.8", FileName _ :=strdatei wie gebe ich die gewünschte breite und höhe an?? Danke für alle tipps
|
|
|