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

Excel Textkonvertierungs-Assistent läßt sich nicht unterdrücken

Mitglied: arotciv

arotciv (Level 1) - Jetzt verbinden

10.02.2016, aktualisiert 13:51 Uhr, 990 Aufrufe, 4 Kommentare, 1 Danke

Hallo,

ich habe hier in einer Excelmappe ein Makro, dass mir eine Textdatei in eine neue Arbeitsmappe einfügt.
Ich würde gerne den lästigen Textkonvertierungs Assistenten umgehen, oder per Makro mit den abgefragten Infos füttern, damit er nicht mehr erscheint.
Leider hilft das Abschalten der Warnungen dabei nicht.

Mein Makro sieht derzeit so aus:
01.
Sub NTI_ADDY()
02.

03.
    Dim DestBook As Workbook, SourceBook As Workbook
04.
    Dim DestCell As Range
05.
    Dim RetVal As Boolean
06.
  
07.
  For i = 1 To 20 Step 1
08.
        Set NewSheet = Worksheets.Add
09.
        NewSheet.Name = "NTI-IMPORT" & i
10.

11.
             ' Turn off screen updating.
12.
                               Application.ScreenUpdating = False
13.
                               Application.DisplayAlerts = False
14.
              ' Set object variables for the active book and active cell.
15.
                                 Set DestBook = ActiveWorkbook
16.
                                 Set DestCell = ActiveCell
17.

18.
              ' Show the Open dialog box.
19.
                                 RetVal = Application.Dialogs(xlDialogOpen).Show("*RT60*Report*.txt")
20.

21.
             ' If Retval is false (Open dialog canceled), exit the procedure.
22.
                                If RetVal = False Then Exit Sub
23.

24.
             ' Set an object variable for the workbook containing the text file.
25.
                                Set SourceBook = ActiveWorkbook
26.

27.
             ' Copy the contents of the entire sheet containing the text file.
28.
                    
29.
                                  Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
30.
           
31.
            ' Activate the destination workbook and paste special the values
32.
             ' from the text file.
33.
                                   DestBook.Activate
34.
                                  DestCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 'Paste:=xlValues
35.

36.
                ' Close the book containing the text file.
37.
                                  SourceBook.Close False
38.
                                 'Application.DisplayAlerts = True
39.

40.
                '  Weitere Messung laden
41.

42.
        Auswahl = MsgBox("Weiteren Messpunkt einfügen?", vbYesNo + vbQuestion, "NTI LOAD POS 2")
43.
        
44.
        If Auswahl = vbNo Then Exit For
45.
  Next i
46.
  Application.DisplayAlerts = True
47.
End Sub
[Edit Biber] Codeformatierung nachgezogen. [/Edit]
Mitglied: 114757
10.02.2016, aktualisiert um 13:54 Uhr
Moinsens.
Einfach mal den Makro-Recorder angeworfen, dann wäre der Thread obsolet gewesen

01.
With DestBook.QueryTables.Add(Connection:="TEXT;" & "PFAD DEINER DATEI", Destination:=DestBook.Range("$A$1"))
02.
                .Name = "import"
03.
                .FieldNames = True
04.
                .AdjustColumnWidth = True
05.
                .RefreshPeriod = 0
06.
                .TextFilePlatform = 1252
07.
                .TextFileStartRow = 1
08.
                .TextFileParseType = xlDelimited
09.
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
10.
                .TextFileSemicolonDelimiter = True
11.
                .Refresh BackgroundQuery:=False
12.
                .Delete
13.
End With
Eigenschaften für den Import natürlich anpassen (Delimiter etc. pp)
https://msdn.microsoft.com/de-de/library/office/ff837764.aspx

Gruß jodel32
Bitte warten ..
Mitglied: arotciv
10.02.2016 um 14:11 Uhr
Moin,

vielen Dank, aber der Makrorecorder hat mir das nicht ausgeworfen. Das hatte ich versucht.
Bitte warten ..
Mitglied: 126919
10.02.2016, aktualisiert um 14:17 Uhr
Hi.
Zitat von arotciv:
vielen Dank, aber der Makrorecorder hat mir das nicht ausgeworfen. Das hatte ich versucht.
dazu musst du das über Tab: Daten --> Externe Daten abrufen --> Text machen

fk
Bitte warten ..
Mitglied: arotciv
10.02.2016 um 14:29 Uhr
Hallo Jodel32 und Flachkoepper,

ich bin anscheinend leider nicht in der Lage den Code von Jodel32 in meinen Code richtig zu integrieren. An welcher Stelle binde ich das ein?

Hier nochmal der Code:

01.
Sub NTI_LOADER()
02.

03.
    Dim DestBook As Workbook, SourceBook As Workbook
04.
    Dim DestCell As Range
05.
    Dim RetVal As Boolean
06.
  
07.
  For i = 20 To 1 Step -1
08.
        Set NewSheet = Worksheets.Add
09.
        NewSheet.Name = "NTI-IMPORT" & i
10.

11.
             ' Turn off screen updating.
12.
                     Application.ScreenUpdating = False
13.
                     Application.DisplayAlerts = False
14.
              ' Set object variables for the active book and active cell.
15.
                     Set DestBook = ActiveWorkbook
16.
                     Set DestCell = ActiveCell
17.

18.
              ' Show the Open dialog box.
19.
                     RetVal = Application.Dialogs(xlDialogOpen).Show("*RT60*Report*.txt")
20.

21.
             ' If Retval is false (Open dialog canceled), exit the procedure.
22.
                     If RetVal = False Then Exit Sub
23.

24.
             ' Set an object variable for the workbook containing the text file.
25.
                      Set SourceBook = ActiveWorkbook
26.

27.
             ' Copy the contents of the entire sheet containing the text file.
28.
                    
29.
                      Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
30.
           
31.
            ' Activate the destination workbook and paste special the values
32.
             ' from the text file.
33.
                      DestBook.Activate
34.
                      DestCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
35.
             ' Close the book containing the text file.
36.
                         SourceBook.Close False
37.
                 
38.
                 '  Weitere Messung laden
39.

40.
        Auswahl = MsgBox("Weiteren Messpunkt einfügen?", vbYesNo + vbQuestion, "NTI LOAD POS 2")
41.
        
42.
        If Auswahl = vbNo Then Exit For
43.
   Next i
44.
  Application.DisplayAlerts = True
45.
End Sub
Bitte warten ..
Ähnliche Inhalte
Windows Tools

WSUS: Assistent für Serverbereinigung

gelöst Frage von DucksteWindows Tools5 Kommentare

Guten Morgen zusammen, wir setzen WSUS in der Version 3.2 auf einem Windows Server 2008 R2 ein. Ich habe ...

CMS

Internen Notfallplan als Webinterface Assistent

Frage von table1CMS8 Kommentare

Hallo zusammen, ich habe folgendes Problem: Wir brauchen einen IT Notfallplan in der Firma für die User, falls die ...

Windows 10

Logitech Downlad Assistent: system32 rundll32.exe

gelöst Frage von psy-tekWindows 102 Kommentare

Hi. In meinen Win10 Taskmanger ist ein Logitech Download Assistent beim Autostart eingetragen. Welcher auf: C:\Windows\System32 liegt. Unter "Programme ...

Windows Server

Terminal Server 2012 RemoteApp Programm Assistent hängt

Frage von rico1211Windows Server

Unser Terminal Server 2012 (R1) hängt beim Assistent zum hinzufügen von neuen Programmen. Das Fenster "RemoteApp Programme auswählen" läuft ...

Neue Wissensbeiträge
Off Topic
Europawahl 2019
Information von Frank vor 10 StundenOff Topic1 Kommentar

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Humor (lol)

Minister wollen offenbar Ausweispflicht für .de-Domain

Information von Kraemer vor 23 StundenHumor (lol)7 Kommentare

Zitat von Golem.de: Die zuständigen Verbraucherschutzminister fordern einem Medienbericht zufolge offenbar eine Ausweispflicht für .de-Domains. Das soll Betrugsfälle mit ...

Off Topic
Was als Noob hier mal gesagt werden musste
Information von th30ther vor 2 TagenOff Topic5 Kommentare

Moinsen wertes Forum, ich möchte mich an dieser Stelle mal beim Forum generell und bei aqui speziell bedanken! Ich ...

Windows 10
Windows 10 Mai 2019 Update (Version 1903) ist da
Information von kgborn vor 2 TagenWindows 109 Kommentare

Nur ein kurzer Infosplitter: Microsoft hat die Nacht (21. Mai 2019) das Funktionsupdate auf Windows 10 Version 1903 freigegeben. ...

Heiß diskutierte Inhalte
Ausbildung
Wie sind eure Erfahrungen als oder mit Ü30 Azubis für Fachinformatik Systemintegration?
Frage von CaptainProcessorAusbildung24 Kommentare

Tagchen allerseits :) Mir steht in wenigen Monaten eine Veränderung bevor, da mein AG seine IT auslagert und ich ...

Router & Routing
HP 2920 als Router konfigurieren. Bitte um Unterstützung
gelöst Frage von suedi123Router & Routing16 Kommentare

Liebe Forumsmitglieder, ich habe hier ein Problem, bei welchem ich nicht weiterkomme, weil ich mich zu wenig mit der ...

Batch & Shell
BATCH: Werte einer Textdatei analysiern und Ergebnis ausgeben
gelöst Frage von SchottenrockBatch & Shell11 Kommentare

Hallo Zusammen, ich stehe vor einer kniffligen Herausforderung, bei der mir die Suche nicht weitergeholfen hat - oder ich ...

Microsoft Office
Outlook 2003 sendet keine Mails
Frage von JensDinkelMicrosoft Office10 Kommentare

Hallo zusammen, ich weiß, Outlook 2003 ist ein altes Programm, aber ich bin im Moment noch gezwungen, das am ...