Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Excel(VBA)programmierung eine Datei öffnen

Mit Excel(VBA)programmierung eine Datei öffnen
11.07.2002 17:08:17
Sebastian
Dieser Code kann jede *.xls Datei öffnen, aber nicht die, die es öffnen soll.
Excel sagt dann immer:
"Kann Datensatz ... nicht lesen!" Weiterhin jeden Fehler anzeigen?"
Er gibt dann nur eine Spalte von 4 aus.

ICH HOFFE ES KANN MIR JEMAND SAGEN, woran das liegt.

Der Code lautet:
Public OQOneu As String

Public Sub Dateiauswaehlen()

If MsgBox("Sind Sie sicher, dass Sie neue Daten importieren möchten?", vbYesNo) = vbYes Then
OQOneu = Application.GetOpenFilename("Excel-Dateien, *.xls", , "Bitte Datei angeben")
Call Dateioeffnen
Else
MsgBox "Sie haben sich entschlossen, keine Daten zu importieren!", vbInformation
End If
End Sub

Public Sub Dateioeffnen()

Workbooks.open OQOneu, , yes


End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mit Excel(VBA)programmierung eine Datei öffnen
11.07.2002 18:30:25
Dieter Klemke
Hallo Sebastian,
dein Code funktioniert bei mir reibungslos (Excel 2000).
Welchen Wert hat den der Parameter yes?
Kannst du den nicht weglassen.
Läßt sich die in Rede stehende Arbeitsmappe manuell öffnen?
MfG
Dieter
Re: Mit Excel(VBA)programmierung eine Datei öffnen
11.07.2002 18:58:34
Sebastian
Die Datei lässt sich manuell reibungslos öffnen!
Öffne ich eine andere Datei, funktioniert es reibungslos mit VBA
Re: Mit Excel(VBA)programmierung eine Datei öffnen
11.07.2002 20:51:34
Dieter Klemke
Hallo Sebastian,
ich schlage zur Problemvereinfachung das folgende Testprogramm vor:

Unter "C:\Verzeichnis\DeineDatei.xls" den kompletten Pfad und Dateinamen.
Wenn das funktioniert, müßte dein erstes Programm auch klappen.
MfG
Dieter
Anzeige
Re: Mit Excel(VBA)programmierung eine Datei öffnen
12.07.2002 10:03:38
Sebastian
Tut mir leid, aber so funktioniert es auch nicht!
Wenn ich sie manuell öffne, dann klappt es.
Aber so wie du es beschrieben hast auch nicht.
Re: Mit Excel(VBA)programmierung eine Datei öffnen
13.07.2002 10:21:26
Dieter Klemke
Hallo Sebastian,
da fällt mir auch nichts mehr ein.
Kannst du mir die Datei - ggfs. mit anonymisierten Daten - per eMail schicken? Meine Adresse
Dieter.Klemke@t-online.de
MfG
Dieter
Re: Mit Excel(VBA)programmierung eine Datei öffnen
15.07.2002 08:39:07
Sebastian
Vielen Dank Dieter für deine Hilfe! Aber ich habe das Problem gelöst.
Ich habe zufällig die Datei neu abgespeichert und dabei bemerkt, dass es nicht wirklich eine Excel-Arbeitsmappe war sondern etwas anderes. Jetzt habe ich sie als Excel-Arbeitsmappe abgespeichert und alles funktioniert. Vielen DAnk nochmal!
Anzeige
Vergleichen, hinzufügen, dazurechnen ...
15.07.2002 08:41:38
Sebastian
Hallo Dieter! Vielleicht kannst du mir ja auch hierbei helfen.

Ich möchte gerne dass ich via VBA folgedes machen:
Ich habe eine Arbeistmappe "Gesamt", dann habe ich eine Arbeitsmappe, diin Excel paralell geöffnet ist. (Diese Datei kommt jede Woche neu)
Nun möchte ich aus der Datei, die jede Woche kommt die Datensätze mit der Gesamt-Arbeitsmappe vergleichen.
Das bedeutet:
VBA soll gucken, existiert die Kundennummer schon?
- Dann addiere die Bestellanzahl aus der wöchentlichen Mappe mit denen aus der Gesamtmappe zusammen und schreibe sie in dass Feld, wo die Bestellanzahl in der Gesamtmappe der Kundennummer steht.
- Dann addiere auch die Bestellsumme aus der wöchentlichen Mappe mit denen aus der Gesamtmappe zusammen und schreibe sie in dass Feld, wo die Bestellsumme in der Gesamtmappe der Kundennummer steht.

So, existiert die Kundennummer noch nicht, füge den Datensatz ans Ende der ganzen Datensätze hinzu.

So sieht der Code, den ich bisher habe aus:

Dim ZAEHLER As Integer

Public Sub Vergleichen()
MsgBox "Die Vergleichung läuft!"


Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Zeilenanzahl

For ZAEHLER = 6 To Selection.End(xlDown).Select
If Workbooks("oqo_gesamt").Sheets("oqo").Cells(ZAEHLER, 2).Value <> Workbooks(OQOneu).Sheets("oqo").Cells(ZAEHLER - 1, 2).Value Then

ElseIf Workbooks("oqo_gesamt").Sheets("oqo").Cells(ZAEHLER, 2).Value <> Workbooks(OQOneu).Sheets("oqo").Cells(ZAEHLER - 1, 2).Value Then


End If
Next
Next x

End Sub

Anzeige
Vergleichen, hinzufügen, dazurechnen ...
15.07.2002 08:48:20
Sebastian
Hallo Dieter! Vielleicht kannst du mir ja auch hierbei helfen.

Ich möchte gerne dass ich via VBA folgedes machen:
Ich habe eine Arbeistmappe "Gesamt", dann habe ich eine Arbeitsmappe, diin Excel paralell geöffnet ist. (Diese Datei kommt jede Woche neu)
Nun möchte ich aus der Datei, die jede Woche kommt die Datensätze mit der Gesamt-Arbeitsmappe vergleichen.
Das bedeutet:
VBA soll gucken, existiert die Kundennummer schon?
- Dann addiere die Bestellanzahl aus der wöchentlichen Mappe mit denen aus der Gesamtmappe zusammen und schreibe sie in dass Feld, wo die Bestellanzahl in der Gesamtmappe der Kundennummer steht.
- Dann addiere auch die Bestellsumme aus der wöchentlichen Mappe mit denen aus der Gesamtmappe zusammen und schreibe sie in dass Feld, wo die Bestellsumme in der Gesamtmappe der Kundennummer steht.

So, existiert die Kundennummer noch nicht, füge den Datensatz ans Ende der ganzen Datensätze hinzu.

So sieht der Code, den ich bisher habe aus:

Dim ZAEHLER As Integer

Public Sub Vergleichen()
MsgBox "Die Vergleichung läuft!"


Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Zeilenanzahl

For ZAEHLER = 6 To Selection.End(xlDown).Select
If Workbooks("oqo_gesamt").Sheets("oqo").Cells(ZAEHLER, 2).Value <> Workbooks(OQOneu).Sheets("oqo").Cells(ZAEHLER - 1, 2).Value Then

ElseIf Workbooks("oqo_gesamt").Sheets("oqo").Cells(ZAEHLER, 2).Value <> Workbooks(OQOneu).Sheets("oqo").Cells(ZAEHLER - 1, 2).Value Then


End If
Next
Next x

End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Anzeige
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
kann Hilfedatei ribbonx.chm nicht nutzen
susi-lein


Hallo zusammen,
ich wollte mal in der komplilierten Hilfedatei vom Menü Excel-Versionen ribbonx.chm lesen.
das geht aber nicht:
ich bekomme zu jedem Menupunkt die Anzeige "aktion abgebrochen".
woran liegt das?
Grüsse, Susi
06.09.2009 09:59:45
Thread-ID: 1100833
4 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
4
2
4
2
3
3
4
1
3
2
2
5
4
2
1
9
1
1
7
8
2
1
2