Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 2811 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
Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

Neue Wissensbeiträge
Viren und Trojaner

Link: Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (13)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...

Switche und Hubs
gelöst VLAN für Gäste WLAN einrichten über FritzBox und Switch (10)

Frage von Elo-14 zum Thema Switche und Hubs ...