|
|
|
Auslesen erste Datei aus Liste |
|
| tomstrom |
Forum-Anfänger
|
 |
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
 |
|
Verfasst am: 11.02.2009, 16:18
Titel: Auslesen erste Datei aus Liste
|
 |
Hallo Leute
Hier habe ich einen Code erstell, welcher mir dank Hile aus der Forensuche dateien anzeigt und sortiert. Was ich jetzt noch brache ist ein Befehl, welcher mir das oberste File übergibt.
% Einlesen und Auslesen aus Excel-Datei
dateiliste = ls('C:\Documents and Settings\chascto0\Desktop\*.xls');
dateiliste = sort(dateiliste,'descend')
if numel(dateiliste) >= 1
fname = dateiliste{1};
else
helpdlg('Es existieren keine Datei');
Die Ausgabe ser Auswahl der Dateien sieht folgendermassen aus:
Dateiliste =
LWL_Spezifikationen_VBA_chascto0_19.02.2009.xls
LWL_Spezifikationen_VBA_chascto0_01.02.2009.xls[/quote]
Zuletzt bearbeitet von tomstrom am 11.02.2009, 16:33, insgesamt einmal bearbeitet
|
|
|
|
|
|
| Gast |
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 11.02.2009, 16:28
Titel:
|
|
Kannst Du mal versuchen, die Code-Umgebung zu reparieren. Das ist sehr schlecht zu lesen.
Zur Not die Quote-Umgebung nehmen.
|
|
|
|
| Gast |
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 11.02.2009, 16:46
Titel:
|
|
müsste das tun. Den Pfad hast Du ja, siehe auch
Aber dass Du das mit der Forensuche erarbeitet hast stimmt glaube ich nicht. 
Ich fand einen Deiner Kommentare (sinngemäß: will nicht mehr suchen und lesen) deshalb auch nicht gut.
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 11.02.2009, 17:43
Titel:
|
|
Sorry ich habe mich falsch ausgedrückt. Es geht mir um folgendes:
Mit dem ls Befehl bekomme ich ein "m-by-n character array of filenames", dies funktioniert:
Dateiliste =
LWL_Spezifikationen_VBA_chascto0_19.02.2009.xls
LWL_Spezifikationen_VBA_chascto0_01.02.2009.xls
Nun möchte ich nur das erste File auslesen. Mit dem Befehl :
fname = dateiliste(1); funktioniert es leider nicht ich bekomme nur das erste Zeichen (L)
Kannst Du mir bitte helfen
|
|
|
|
| Gast |
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 11.02.2009, 17:50
Titel:
|
|
Achso, dann die bei arrays übliche colon ( Indizierung nutzen:
Also erste Zeile, alle Spalten.
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 09:51
Titel:
|
|
| |
 |
 |
Schade es geht leider immer noch nicht. Mit dem Debug-Modus komme ich bis das excel die Datei fname öffnen möchte(excel.Woorkbooks.open(fname). Die Variable wurde aber mit dem richtigen File ausgegeben. Habt ihr da noch einen Lösungsansatz?
dateiliste = ls('C:\Documents and Settings\chascto0\Desktop\*.xls');
%dateiliste = sort(dateiliste,'descend');
if numel(dateiliste) >= 1
%fname = fullfile('C:\Documents and Settings\chascto0\Desktop\','LWL_Spezifikationen_VBA_*_*');
fname = dateiliste(1,;
else
helpdlg('Es existieren keine Datei');
sheet = 1; % Aus welchen Tabellenblatt soll gelesen werden
range_a1 = 'A1'; %Variable bestimmen, also range_a1 und diese mit der Zelle A1 aus dem Excel füllen
range_b1 = 'B1'; %Variable bestimmen, also range_b1 und diese mit der Zelle B1 aus dem Excel füllen
range_c1 = 'C1'; %Variable bestimmen, also range_c1 und diese mit der Zelle C1 aus dem Excel füllen
range_d1 = 'D1'; %Variable bestimmen, also range_d1 und diese mit der Zelle D1 aus dem Excel füllen
range_e1 = 'E1'; %Variable bestimmen, also range_e1 und diese mit der Zelle E1 aus dem Excel füllen
range_f1 = 'F1'; %Variable bestimmen, also range_f1 und diese mit der Zelle F1 aus dem Excel füllen
range_g1 = 'G1'; %Variable bestimmen, also range_g1 und diese mit der Zelle F1 aus dem Excel füllen
range_h1 = 'H1'; %Variable bestimmen, also range_h1 und diese mit der Zelle F1 aus dem Excel füllen
end
%
% Verbindung zur Excel über ActiveX aufbauen
excel = actxserver('Excel.Application');
%
% Excel sichtbar machen (sonst kann es auch im Hintergrund laufen)
excel.Visible = 0;
%
% Dokument öffnen
excel.Workbooks.Open(fname);
%
% passendes Sheet activieren "Item(x)"
excel.ActiveWorkBook.Sheets.Item(sheet).Activate;
%
% Daten aus bestimmten Bereich auslesen
data_a1 = excel.ActiveSheet.Range(range_a1).Value;
data_b1 = excel.ActiveSheet.Range(range_b1).Value;
data_c1 = excel.ActiveSheet.Range(range_c1).Value;
data_d1 = excel.ActiveSheet.Range(range_d1).Value;
data_e1 = excel.ActiveSheet.Range(range_e1).Value;
data_f1 = excel.ActiveSheet.Range(range_f1).Value;
data_g1 = excel.ActiveSheet.Range(range_g1).Value;
data_h1 = excel.ActiveSheet.Range(range_h1).Value;
% Excel beenden
excel.Quit
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 10:15
Titel:
|
|
| |
|
|
Schade es geht leider immer noch nicht. Mit dem Debug-Modus komme ich bis das excel die Datei fname öffnen möchte(excel.Woorkbooks.open(fname). Die Variable wurde aber mit dem richtigen File ausgegeben. Habt ihr da noch einen Lösungsansatz?
dateiliste = ls('C:\Documents and Settings\chascto0\Desktop\*.xls');
%dateiliste = sort(dateiliste,'descend');
if numel(dateiliste) >= 1
%fname = fullfile('C:\Documents and Settings\chascto0\Desktop\','LWL_Spezifikationen_VBA_*_*');
fname = dateiliste(1,;
else
helpdlg('Es existieren keine Datei');
sheet = 1; % Aus welchen Tabellenblatt soll gelesen werden
range_a1 = 'A1'; %Variable bestimmen, also range_a1 und diese mit der Zelle A1 aus dem Excel füllen
range_b1 = 'B1'; %Variable bestimmen, also range_b1 und diese mit der Zelle B1 aus dem Excel füllen
range_c1 = 'C1'; %Variable bestimmen, also range_c1 und diese mit der Zelle C1 aus dem Excel füllen
range_d1 = 'D1'; %Variable bestimmen, also range_d1 und diese mit der Zelle D1 aus dem Excel füllen
range_e1 = 'E1'; %Variable bestimmen, also range_e1 und diese mit der Zelle E1 aus dem Excel füllen
range_f1 = 'F1'; %Variable bestimmen, also range_f1 und diese mit der Zelle F1 aus dem Excel füllen
range_g1 = 'G1'; %Variable bestimmen, also range_g1 und diese mit der Zelle F1 aus dem Excel füllen
range_h1 = 'H1'; %Variable bestimmen, also range_h1 und diese mit der Zelle F1 aus dem Excel füllen
end
%
% Verbindung zur Excel über ActiveX aufbauen
excel = actxserver('Excel.Application');
%
% Excel sichtbar machen (sonst kann es auch im Hintergrund laufen)
excel.Visible = 0;
%
% Dokument öffnen
excel.Workbooks.Open(fname);
%
% passendes Sheet activieren "Item(x)"
excel.ActiveWorkBook.Sheets.Item(sheet).Activate;
%
% Daten aus bestimmten Bereich auslesen
data_a1 = excel.ActiveSheet.Range(range_a1).Value;
data_b1 = excel.ActiveSheet.Range(range_b1).Value;
data_c1 = excel.ActiveSheet.Range(range_c1).Value;
data_d1 = excel.ActiveSheet.Range(range_d1).Value;
data_e1 = excel.ActiveSheet.Range(range_e1).Value;
data_f1 = excel.ActiveSheet.Range(range_f1).Value;
data_g1 = excel.ActiveSheet.Range(range_g1).Value;
data_h1 = excel.ActiveSheet.Range(range_h1).Value;
% Excel beenden
excel.Quit
|
|
|
|
| Gast |
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 10:36
Titel:
|
|
| tomstrom hat Folgendes geschrieben: |
Schade es geht leider immer noch nicht. Mit dem Debug-Modus komme ich bis das excel die Datei fname öffnen möchte(excel.Woorkbooks.open(fname). Die Variable wurde aber mit dem richtigen File ausgegeben. Habt ihr da noch einen Lösungsansatz?
excel.Quit |
Fehlermeldung?
fname ist also richtig?
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 10:42
Titel:
|
|
Hier die Fehlermeldung nach excel.Workbooks.Open(fname); im Debug-Modus
K>> dateiliste
dateiliste =
LWL_Spezifikationen_VBA_chascto0_12.02.2009.xls
??? Invoke Error, Dispatch Exception:
Source: Microsoft Office Excel
Description: 'LWL_Spezifikationen_VBA_chascto0_12.02.2009.xls' wurde nicht gefunden. Überprüfen Sie die Rechtschreibung des Dateinamens und überprüfen sie, ob der Ort der Datei korrekt ist.
Wenn Sie versuchen, die Datei über die Liste der zuletzt verwendeten Dokumente im Menü 'Datei' zu öffnen, überprüfen Sie dass die Datei nicht umbenannt, verschoben oder gelöscht wurde.
Help File: C:\Program Files\Microsoft Office\OFFICE11\1031\xlmain11.chm
Help Context ID: 0
Error in ==> Bedienung040109>import_Callback at 149
excel.Workbooks.Open(fname);
Error in ==> gui_mainfcn at 95
feval(varargin{:});
Error in ==> Bedienung040109 at 42
gui_mainfcn(gui_State, varargin{:});
|
|
|
|
| Gast |
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 10:45
Titel:
|
|
|
Ergänze mal fname um den Pfad. Vermutlich guckt Excel sonst nur im 'Eigene Dateien'-Ordner.
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 15:18
Titel:
|
|
Das mit dem Pfad hat funktioniert. Aber jetzt kommt da die nächste Fehlermeldung das Excel hat Probleme mit dem "Sheet" Hier die Fehlermeldung! Hat jemand eine Idee?
dateiliste =
LWL_Spezifikationen_VBA_chascto0_12.02.2009.xls
datei =
LWL_Spezifikationen_VBA_chascto0_12.02.2009.xls
fname =
C:\Documents and Settings\chascto0\Desktop\LWL_Spezifikationen_VBA_chascto0_12.02.2009.xls
??? Undefined function or variable "sheet".
Error in ==> Bedienung040109>import_Callback at 153
excel.ActiveWorkBook.Sheets.Item(sheet).Activate;
Error in ==> gui_mainfcn at 95
feval(varargin{:});
Error in ==> Bedienung040109 at 42
gui_mainfcn(gui_State, varargin{:});
??? Error using ==> Bedienung040109('import_Callback',gcbo,[],guidata(gcbo))
Undefined function or variable "sheet".
??? Error while evaluating uicontrol Callback
|
|
|
|
| Lottilie |
Gast
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 15:22
Titel:
|
|
Du mußt angeben, welches Tabellenblatt angeguckt werden soll. Also statt sheet - Tabellenblattname in Hochkommata
Gruß L.
|
|
|
|
| Lottilie |
Gast
|
|
Beiträge: ---
|
|
|
|
Anmeldedatum: ---
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 12.02.2009, 15:29
Titel:
|
|
|
Ich seh gerade, dass Du diese Zuweisung schon vorgenommen hast. Allerdings an einer Stelle, die von Matlab nur ausgelesen wird, wenn keine Datei vorhanden; nämlich nach else. Damit wird natürlich auch die Zuweisung der Variablen range_a1 usw. nicht funktionieren.
|
|
|
|
| tomstrom |
Themenstarter
Forum-Anfänger
|
|
Beiträge: 16
|
|
|
|
Anmeldedatum: 14.08.08
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
|
|
|
Verfasst am: 14.02.2009, 12:51
Titel:
|
|
|
Danke allen die mir geholfen haben. Es hat nun geklappt
|
|
|
|
|
|
|
Einstellungen und Berechtigungen
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen
|
|
Impressum
| Nutzungsbedingungen
| Datenschutz
| FAQ
|  RSS
Hosted by:
Copyright © 2007 - 2024
goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks
MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.
|
|
