PDA

Vollständige Version anzeigen : Inhalt einer Textdatei einlesen und in aktive Zelle einfügen


H2SO4
28.07.2012, 11:36
Hallo,

leider bin ich in makro programieren nicht so fit.
Hoffe hier kann mir jemand helfen.

ich habe 3 txt dateien.
Ich möchte nun gerne 3 "Knöpfe" haben und wenn ich jeweils einen der Knöpfe drücke möchte ich dass jeweils der Inhalt einer (harcodierten) txt datei in die gerade aktive Zelle kopiert wird. Geht dies und wenn ja wie??

ebs17
28.07.2012, 12:01
Was ist eine "gerade aktive Zelle" im Rahmen einer Datenbank?

H2SO4
28.07.2012, 12:10
ups befinde mich nicht in einer db sondern in excel selber sorry



Aus dem Access-Bereich in dieses Forum verschoben.

hcscherzer
28.07.2012, 13:36
leider bin ich in makro programieren nicht so fit.Hast Du schon mal probiert, ein Makro aufzuzeichnen, während Du das ausführst, was später automatisiert werden soll?
Dabei kannst Du viel Grundlegendes lernen.

josef e
28.07.2012, 14:21
<div style="width:98%; margin-left:5px; margin-right:15px; text-align:justify;">
Hallo ?,

das geht z. B. so.

<div style="background-color:#F5F5F5; border-width:2px; border-style: groove; border-color:#ff9966; padding:4px;"><nobr><span style="font-family:Courier New,Arial; font-size:8pt ;" ><span style="color:#008000"; >' **********************************************************************</span><br /><span style="color:#008000"; >' Modul: Modul1 Typ: Allgemeines Modul</span><br /><span style="color:#008000"; >' **********************************************************************</span><br /><br /><span style="color:#0000FF"; >Option</span> <span style="color:#0000FF"; >Explicit</span><br /><br /><b><span style="color:#0000FF"; >Sub</span> txtEins()</b><br />&nbsp;&nbsp;ActiveCell = TextReadAll(<span style="color:#808080"; >"E:\Temp\eins.txt"</span>)<br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b><br /><br /><br /><b><span style="color:#0000FF"; >Sub</span> txtZwei()</b><br />&nbsp;&nbsp;ActiveCell = TextReadAll(<span style="color:#808080"; >"E:\Temp\zwei.txt"</span>)<br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b><br /><br /><br /><b><span style="color:#0000FF"; >Sub</span> txtDrei()</b><br />&nbsp;&nbsp;ActiveCell = TextReadAll(<span style="color:#808080"; >"E:\Temp\drei.txt"</span>)<br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b><br /><br /><br /><b><span style="color:#0000FF"; >Private</span> <span style="color:#0000FF"; >Function</span> TextReadAll(<span style="color:#0000FF"; >ByVal</span> strFile <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >String</span>) <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >String</span></b><br />&nbsp;&nbsp;<span style="color:#0000FF"; >Dim</span> fF <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Integer</span><br />&nbsp;&nbsp;<span style="color:#0000FF"; >Dim</span> strText <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >String</span><br />&nbsp;&nbsp;<br />&nbsp;&nbsp;TextReadAll = <span style="color:#808080"; >"File Not Found!"</span><br />&nbsp;&nbsp;<br />&nbsp;&nbsp;<span style="color:#0000FF"; >If</span> Dir(strFile) &lt;&gt; "" <span style="color:#0000FF"; >Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;fF = FreeFile<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >Open</span> strFile <span style="color:#0000FF"; >For</span> <span style="color:#0000FF"; >Binary</span> <span style="color:#0000FF"; >As</span> #fF<br />&nbsp;&nbsp;&nbsp;&nbsp;strText = Space$(LOF(fF))<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >Get</span> #fF, , strText<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >Close</span> #fF<br />&nbsp;&nbsp;&nbsp;&nbsp;TextReadAll = strText<br />&nbsp;&nbsp;<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >If</span><br />&nbsp;&nbsp;<br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Function</span></b><br /><br /></span></nobr></div>


</div>

<div style="width:100px; text-align:center; color:white; font-style:italic; font-size:0.8em; font-family:Tahoma; background-color:royalblue;margin-left:5px; margin-top:15px; padding:4px; border:3px double darkblue;">&laquo; Gru&szlig; Sepp &raquo;</div>