Hallo,
ich muss einzelne Zellen aus Excel kopieren und dann in einem andern Fenster ( internet Explorer Anwendung) einfügen.
Möchte jetzt das ganze automatisieren.
Wie kann ich mit einem VBScript die Zelle A1 kopieren und dann in dem anderem Fenster einfügen?
Name der Exceldatei „Baustelle“
Name der Tabelle „Start“
Name des Fensters wo die Kopierte Zelle eingefügt werden soll „Micro1“
Eine gesamte Antwort kann ich nicht anbieten was den Browser angeht. Aber den Teil des Lesens aus einer Excel Datei. Das mit dem Browser mußt Du Die anderweitig besorgen.
Gruß
Option Explicit
Dim WshShell
Dim objFSO, objXL
Dim strNAME, strORT
’ Variable for File & Directory management
Dim strCurrentDir
Dim strExcelPath, strExcelPasswd
’ Establish WSH Shell & Network Connection, Create Objects
’ ---------------------
Set WshShell = WScript.CreateObject(„WScript.Shell“)
Set objFSO = CreateObject(„Scripting.FileSystemObject“)
Set objXL = CreateObject(„Excel.Application“)
’ Get current path & file information
’ ---------------------
strCurrentDir = WshShell.CurrentDirectory
’ check Excel availablility
’ --------------------------
strExcelPath = „“
strExcelPasswd = „“
’ Get data
’ --------------------------
objXL.Visible = False
objXL.workbooks.open strExcelPath,strExcelPasswd
objXL.sheets(„Telefonliste“).Activate
objXL.ActiveSheet.range(„A2“).Activate
Do While objXL.activecell.Value „“
'— start - read data from XLS sheet
strNAME = objXL.activecell.offset(0, 0).Value
strORT = objXL.activecell.offset(0, 1).Value
'— end - read data from XLS sheet
Loop
objXL.Quit