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
GELÖST

Calc Tabelle, Zellen per Script auslesen

Frage Entwicklung

Mitglied: Micha3487232

Micha3487232 (Level 1) - Jetzt verbinden

08.10.2013, aktualisiert 08.02.2015, 2854 Aufrufe, 2 Kommentare

Guten Morgen liebe mit Admins,

Ich wende mich heute mal mit einen Script-Problem an Euch.

Ich habe eine Open Office Calc-Tabelle wo ich in 2 Spalten email-Adressen habe.
Nicht in jeder Zelle ist inhalt aber ich möchte jetzt quasi die Spalten 5 und 6 auslesen und in einer Text Datei zur verfügung stellen.
Womit würdet Ihr das Programieren und weiß jemand wie das Gerüst grob aussehen müste? Meine Programiererfahrung ist da eher rudimentär.

lg Micha
Mitglied: colinardo
LÖSUNG 08.10.2013, aktualisiert 08.02.2015
Hallo Micha,
ich mache zwar sehr wenig mit OpenOffice, habe aber mal kurz in die Doku geschaut und folgendes OpenOffice-Calc-Basic-Makro für dich geschrieben: (In Zeile 3 kannst du die maximale Anzahl an Zeilen angeben in der E-Mail-Adressen stehen, und in Zeile 11 den Dateinamen in den die E-Mails geschrieben werden; wenn dein Sheet anders als "Tabelle1" heißt musst du dies in Zeile 9 anpassen)
01.
sub getEMails 
02.
        dim maxRows 
03.
	maxRows = 10 
04.
	dim myDoc as Object 
05.
	dim mySheet as Object 
06.
	Dim FileNo As Integer 
07.
	Dim Filename As String 
08.
	myDoc = thisComponent 
09.
	mySheet = myDoc.Sheets.getByName("Tabelle1") 
10.
	FileNo = FreeFile 
11.
	Filename = "C:\emails.txt" 
12.
	Open Filename For Output As #FileNo 
13.
	For i = 0 to maxRows - 1 
14.
		dim col1,col2 
15.
		col1 = mySheet.getCellByPosition(4,i).String 
16.
		col2 = mySheet.getCellByPosition(5,i).String 
17.
		If col1 <> "" Then	 
18.
			Print #FileNo, col1 
19.
		End If 
20.
		If col2 <> "" Then	 
21.
			Print #FileNo, col2 
22.
		End If 
23.
	Next i 
24.
	Close #FileNo 
25.
	Msgbox "Fertig" & chr(13) & "Die Datei liegt hier: " & Filename 
26.
end sub
Grüße Uwe
Bitte warten ..
Mitglied: Micha3487232
08.10.2013 um 11:37 Uhr
Danke Dir UWE, werde es so schnell als möglich testen.

gruß Micha
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Wie kann ich automatisch aus neu angelegten Tabellen Zellen auslesen lassen ?
Frage von Joerg18470VB for Applications4 Kommentare

Hallo zusammen, ich habe eine Mappe erstellt, in der es einen Button gibt mit dem eine neue Tabelle generiert ...

Microsoft Office
Excel - Zellen aus anderen Exceldateien auslesen
gelöst Frage von Cubic83Microsoft Office10 Kommentare

Hallo, ich stecke mal wieder bei einem Excel Problem fest und hoffe ihr könnt mir helfen. Ich habe in ...

VB for Applications
Zellen aus anderer Excel-Mappe mit vba auslesen
gelöst Frage von speedy132VB for Applications3 Kommentare

Hallo zusammen, Ich habe eine Arbeitsmappe in der ich Werte aus einer anderen geschlossenen Arbeitsmappe auslesen möchte. Das ganze ...

Microsoft Office
2 Tabellen vergleichen und aus Zelle wert ausgeben
Frage von BatzmaMicrosoft Office5 Kommentare

Hallo da draußen! Ich weiß ich es gibt genügend Posts darüber jedoch bin ich nach mittlerweile 3h zu sauer ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 104 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell16 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Hardware
Fujitsu Workstation mit K80 und Quadro P5000, Fehlermeldung: Connect Power Adapter
Frage von MachelloHardware7 Kommentare

Hallo Zusammen, ich benötige euren Rat da ich ratlos bin. Folgende Konfiguration im Büro: Fujitsu Workstation Celcius R940 Power ...