Appendix-Thread-Evaluate-Range-(-Codes-for-other-Threads-HTML-Tables-etc-)

Printable View

Show 40 post(s) from this thread on one page

12-27-2019, 04:49 PM
DocAElstein

Coding in support of this post
http://www.excelfox.com/forum/showth...ll=1#post11808

Code:

Option Explicit ' Sub txtfilesinworksheetwithFILENAMEColumnB() ' http://www.excelfox.com/forum/showthread.php/2392-VBA-Copy-files-in-excel-edit-and-save?p=11808&viewfull=1#post11808 Rem 1 Worksheets info Dim WsFlNme As Worksheet Set WsFlNme = ThisWorkbook.Worksheets("FILENAME") Rem 2 Copy .txt files in worksheets '2a) Copy .txt files in worksheet with FILENAME (Column B) '2a)(i) Get the entire text file as a string Dim FileNum As Long: Let FileNum = FreeFile(1) ' The "highway/ street/ link" to be built to transport the text will be given a number. It must be unique. So we use for convenience, the Freefile function: it returns an integer that represents the next file number that the Open statement can use. The optional argument for the range number is a variant that is used to specify a range from which the next free file number is returned. Enter a value of data type 0 (default) to return a file number in the range 1 - 255 inclusive. Enter 1 to return a file number in the range 256 - 511. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freefile-function . Note also : Use file numbers in the range 1-255, inclusive, for files not accessible to other applications. Use file numbers in the range 256-511 for files accessible from other applications Dim PathAndFileName As String, strtxtFile As String Let PathAndFileName = ThisWorkbook.Path & "\vbadumb.txt" Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input... strtxtFile = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length Get #FileNum, , strtxtFile 'The Get statement reads back from an open route to data into the given variable Close #FileNum ' Call WtchaGot(strtxtFile) ' --- If we were to examine that string in strtxtFile, then we would see something like "1" & vbCr & vbLf & "2" & vbCr & vbLf & "3" Rem 3 Put the text data inti the (Windows clipboard) Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dataobject-object A holding area for formatted text data used in transfer operations. Also holds a list of formats corresponding to the pieces of text stored in the DataObject. ..... ' .....A DataObject can contain one piece of text for the Clipboard text format, and one piece of text for each additional text format, such as custom and user-defined formats. A DataObject is distinct from the Clipboard. A DataObject supports commands that involve the Clipboard and drag-and-drop actions for text. When you start an operation involving the Clipboard (such as GetText) or a drag-and-drop operation, the data involved in that operation is moved to a DataObject. The DataObject works like the Clipboard. If you copy a text string to a DataObject, the DataObject stores the text string. If you copy a second string of the same format to the DataObject, the DataObject discards the first text string and stores a copy of the second string. It stores one piece of text of a specified format and keeps the text from the most recent operation. objDataObject.SetText strtxtFile: objDataObject.PutInClipboard ' This often seems to result in putting infomation into the Windows Clipboard Rem 4 Paste out to the worksheet WsFlNme.Paste Destination:=WsFlNme.Range("B1") ' If we paste the entire string in / at B1 , then the vbCr & vbLf in the string will be interpreted by Excel as the row seperator, so the entire string will be split over 3 lines End Sub
12-31-2019, 01:57 AM
DocAElstein

The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"

In support of theses Threads:
http://www.eileenslounge.com/viewtop...249846#p249846
http://www.excelfox.com/forum/showth...quot-KERNEL32)
http://www.excelfox.com/forum/showth...ll=1#post10923

The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll"

I thought I had been sensible and chosen a safe option in XP of download but manually determine Install time
Updates Option Download but manually determine Install time.jpg : https://imgur.com/ocsOVbl , https://imgur.com/X0eB8AG
But somehow I got a full load of updates at some point recently on one of my XP machines, possibly at the point of turning the Laptop off.

I noted manually all the office updates and did various comparisons with my list of "Good" and "Bad" updates, but that only revealed as possible bads , the Active X control Killer , KB3054873. Sure enough my control buttons were dead, but after removing KB3054873. They immediately started working again.

None of the XP killing known bads were found, but some I have not previously seen were found.
Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition Letzte Änderung: 08.10.2019
Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition Letzte Änderung: 03.10.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition Letzte Änderung: 05.09.2019
Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition Letzte Änderung: 08.08.2019
Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition Letzte Änderung: 09.07.2019

Code:

https://www.catalog.update.microsoft...px?q=KB4475604 Updatedetails Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition Letzte Änderung: 08.10.2019 Größe: 79,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4475604 Weitere Informationen: https://support.microsoft.com/kb/4475604 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB3114879 Updatedetails Update für Microsoft Filter Pack 2.0 (KB3114879) 32-Bit-Edition Letzte Änderung: 09.07.2019 Größe: 4,4 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Filter Pack 2.0 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Filter Pack 2.0 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 3114879 Weitere Informationen: https://support.microsoft.com/kb/3114879 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4475604 Updatedetails Update für Microsoft Outlook 2010 (KB4475604) 32-Bit-Edition Letzte Änderung: 08.10.2019 Größe: 79,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4475604 Weitere Informationen: https://support.microsoft.com/kb/4475604 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4464566 Updatedetails Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition Letzte Änderung: 05.09.2019 Größe: 8,2 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4464566 Weitere Informationen: https://support.microsoft.com/kb/4464566 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4475533 Updatedetails Sicherheitsupdate für Microsoft Word 2010 (KB4475533) 32-Bit-Edition Letzte Änderung: 08.08.2019 Größe: 13,3 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Critical KB-Artikelnummern: 4475533 Weitere Informationen: https://support.microsoft.com/kb/4475533 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4484130 Updatedetails Sicherheitsupdate für Microsoft Excel 2010 (KB4484130) 32-Bit-Edition Letzte Änderung: 03.10.2019 Größe: 19,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4484130 Weitere Informationen: https://support.microsoft.com/kb/4484130 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4475599 Updatedetails Sicherheitsupdate für Microsoft Office 2010 (KB4475599) 32-Bit-Edition Letzte Änderung: 05.09.2019 Größe: 2,9 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4475599 Weitere Informationen: https://support.microsoft.com/kb/4475599 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft...px?q=KB4475569 Updatedetails Sicherheitsupdate für Microsoft Office 2010 (KB4475569) 32-Bit-Edition Letzte Änderung: 03.10.2019 Größe: 1,7 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4475569 Weitere Informationen: https://support.microsoft.com/kb/4475569 Support-URL: https://support.microsoft.com/?LN=de-de

Unfortunately removing all those did not cure the XP problem, even after a computer restart.

I tried a simple coding to compare a previous updates list from January 2019 to that for now, at December, 2019

Code:

Option Explicit Sub compareJan2019ToDec2019() ' Laptop Froggy december 2019 .... The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll" The procedure entry point "EnumCalendarInfoExEx" was not found in the DLL "KERNEL32.dll" ' Updates from last January Dim rngSrch As Range: Set rngSrch = Worksheets("Frogy29thjan2019").Range("A1:A" & Worksheets("Frogy29thjan2019").UsedRange.Rows.Count & "") ' Update list for December after killing downloads came probably after turning off computer Dim rngDecUpdts As Range: Set rngDecUpdts = Worksheets("Froggy30thDec2019").Range("A1:A" & Worksheets("Froggy30thDec2019").Range("A" & Rows.Count & "").End(xlUp).Row & "") ' Dim rng As Range For Each rng In rngDecUpdts Dim varMtch As Variant Let varMtch = Application.Match(rng, rngSrch, 0) If IsError(varMtch) Then MsgBox prompt:=rng.Value Dim strMsg As String Let strMsg = strMsg & rng.Value & vbCr & vbLf Else End If Next rng MsgBox prompt:=strMsg: Debug.Print strMsg ' Fron VB Editor , Hit Ctrl+g , then you can copy the list from the Immediate window which should come up after hitting Ctrl+g End Sub

This was the result for new updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626

……………….Continued in next post………………………..

Ref
https://www.catalog.update.microsoft.com/Home.aspx
12-31-2019, 07:11 PM
DocAElstein

………………….from last post……………..

So looking further at these "new" updates:
KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626

Code:

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462172 Update für Microsoft Office 2010 (KB4462172) 32-Bit-Edition Letzte Änderung: 13.02.2019 Größe: 7,1 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4462172 Weitere Informationen: https://support.microsoft.com/kb/4462172 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461626 Update für Microsoft Office 2010 (KB4461626) 32-Bit-Edition Letzte Änderung: 12.03.2019 Größe: 2,6 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4461626 Weitere Informationen: https://support.microsoft.com/kb/4461626 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4018363 Update für Microsoft Access 2010 (KB4018363) 32-Bit-Edition Letzte Änderung: 12.03.2019 Größe: 7,3 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Access 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Access 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4018363 Weitere Informationen: https://support.microsoft.com/kb/4018363 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB2589318 Update für Microsoft Office 2010 (KB2589318) 32-Bit-Edition Letzte Änderung: 10.08.2015 Größe: 747 KB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 2589318 Weitere Informationen: http://support.microsoft.com/kb/2589318 Support-URL: http://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB3115314 Update für Microsoft Visio 2010 (KB3115314) 32-Bit-Edition Letzte Änderung: 13.02.2019 Größe: 19,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Visio 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Visio 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 3115314 Weitere Informationen: https://support.microsoft.com/kb/3115314 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB3114559 Update für Microsoft Outlook 2010 (KB3114559) 32-Bit-Edition Letzte Änderung: 09.04.2019 Größe: 355 KB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 3114559 Weitere Informationen: https://support.microsoft.com/kb/3114559 Support-URL: https://support.microsoft.com/?LN=de-de

So we have 6 "new" updates. But these appear on safe list
12-31-2019, 09:37 PM
DocAElstein

Strangely ….
KB4461526 has appeared. So I De installed it
KB4461576 has appeared. So I De installed it
KB4461625 came back . So I De installed it again
KB4461625 came back once again . So I De installed it again
KB4464524 has appeared. So I De installed it.
KB4462230 has appeared. So I De installed it
KB4462223 has appeared. So I De installed it

After de installing KB4462223, Office started working

Code:

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461526 Sicherheitsupdate für Microsoft Word 2010 (KB4461526) 32-Bit-Edition Letzte Änderung: 08.11.2018 Größe: 12,9 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Word 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4461526 Weitere Informationen: https://support.microsoft.com/kb/4461526 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461576 Sicherheitsupdate für Microsoft Outlook 2010 (KB4461576) 32-Bit-Edition Letzte Änderung: 07.12.2018 Größe: 79,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Outlook 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4461576 Weitere Informationen: https://support.microsoft.com/kb/4461576 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=%20KB4464524%20 Update für Microsoft Outlook 2010 (KB4464524) 32-Bit-Edition Letzte Änderung: 15.05.2019 Größe: 79,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Outlook 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Outlook 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4464524 Weitere Informationen: https://support.microsoft.com/kb/4464524 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462230 Sicherheitsupdate für Microsoft Excel 2010 (KB4462230) 32-Bit-Edition Letzte Änderung: 04.04.2019 Größe: 19,8 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Excel 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4462230 Weitere Informationen: https://support.microsoft.com/kb/4462230 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223 Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition Letzte Änderung: 04.04.2019 Größe: 8,0 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4462223 Weitere Informationen: https://support.microsoft.com/kb/4462223 Support-URL: https://support.microsoft.com/?LN=de-de

At this point, I decide to go backwards, reinstalling those de installed updates in order to pin down the latest “bad” or “bads”

This is the list I have to try out on a re install
I will do it in backward order

KB3114879
KB4475604
KB2589318
KB4462172
KB4464566
KB4475533
KB3115314
KB4484130
KB4475599
KB4475569
KB4018363
KB3114559
KB4461626
KB4462187
KB4461579
KB4462177
KB4464567
KB4461521
KB4461526
KB4461576
KB4461625
KB4464524.
KB4462230
KB4462223
01-01-2020, 12:51 AM
DocAElstein

Re installing in XP
Using Microsoft Update Catalog : https://www.catalog.update.microsoft...px?q=KB4462223
To install, type in the required update in the search box top right. Remember to include KB at the front Download KB from MicrosoftUpdateCatalog.JPG : https://imgur.com/AfSAtlC
Another window appears and you have one or more files to click on to download, https://imgur.com/bIWg243
After downloading you may need to save and / or open / unzip one or more files or do a double click on files to set off the installation or installations. The exact process to get the installation to start will vary depending on your exact system and settings

KB4462223 This breaks Office 2010 after re install , and note also that KB4461626 and KB4461623 and KB4461577 and KB4227170 appeared fir the first time ever!!!
So I de installed KB4462223 again.
All was then OK.

KB4462230
All is still OK after re instal.

KB4464524 ( 14.05.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet.

KB4461625 ( 03.01.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461576 ( 06.12.2018 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB4461526
All is still OK after re install

KB4461521
All is still OK after re install

KB4464567
All is still OK after re install

KB4462177
All is still OK after re install

KB4461579
All is still OK after re install

KB4462187
All is still OK after re install

KB4461626
All is still OK after re install

KB3114559
All is still OK after re install

KB4018363
All is still OK after re install

KB4475569
All is still OK after re install

KB4475599
All is still OK after re install

KB4484130
All is still OK after re install

KB3115314
All is still OK after re install

KB4475533
All is still OK after re install

KB4464566
This causes the XP problem
After de installing it the problem goes away.

KB4462172
All is still OK after re install

KB2589318
All is still OK after re install

KB4475604 ( 08.10.2019 )
This is a large amount of files to download, I have not got around to installing all of them yet

KB3114879
All is still OK after re install

So it appears that the two new "bads" are
KB4464566
KB4462223
And here were the previously known
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223 : The latest, available, and being currently offered
http://www.eileenslounge.com/viewtop...249846#p249846
We see infact that the „hidden" KB4462223 is in fact, an already known „bad"

Code:

https://www.catalog.update.microsoft.com/Search.aspx?q=KB4464566 Sicherheitsupdate für Microsoft Office 2010 (KB4464566) 32-Bit-Edition Letzte Änderung: 05.09.2019 Größe: 8,2 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4464566 Weitere Informationen: https://support.microsoft.com/kb/4464566 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223 Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition Letzte Änderung: 04.04.2019 Größe: 8,0 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4462223 Weitere Informationen: https://support.microsoft.com/kb/4462223 Support-URL: https://support.microsoft.com/?LN=de-de KB4461522 No longer available https://www.catalog.update.microsoft.com/Search.aspx?q=KB4461614 Sicherheitsupdate für Microsoft Office 2010 (KB4461614) 32-Bit-Edition Letzte Änderung: 12.02.2019 Größe: 8,2 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4461614 Weitere Informationen: https://support.microsoft.com/kb/4461614 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462157 Update für Microsoft Office 2010 (KB4462157) 32-Bit-Edition Letzte Änderung: 22.01.2019 Größe: 8,2 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft hat ein Update für Microsoft Office 2010 32-Bit-Edition veröffentlicht. Dieses Update stellt neueste Fixes für Microsoft Office 2010 32-Bit-Edition bereit. Darüber hinaus umfasst das Update Verbesserungen von Stabilität und Leistung. Architektur: k.A. Klassifikation: Wichtige Updates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Unspecified KB-Artikelnummern: 4462157 Weitere Informationen: https://support.microsoft.com/kb/4462157 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462174 Sicherheitsupdate für Microsoft Office 2010 (KB4462174) 32-Bit-Edition Letzte Änderung: 07.02.2019 Größe: 8,0 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4462174 Weitere Informationen: https://support.microsoft.com/kb/4462174 Support-URL: https://support.microsoft.com/?LN=de-de https://www.catalog.update.microsoft.com/Search.aspx?q=KB4462223 Updatedetails Sicherheitsupdate für Microsoft Office 2010 (KB4462223) 32-Bit-Edition Letzte Änderung: 04.04.2019 Größe: 8,0 MB Details: Übersicht Sprachauswahl Paketdetails Installationsressourcen Beschreibung: Microsoft Office 2010 32-Bit-Edition enthält ein Sicherheitsrisiko, das die Ausführung von willkürlichem Code ermöglicht, wenn eine in böswilliger Absicht veränderte Datei geöffnet wird. Dieses Sicherheitsrisiko wird mit diesem Update behoben. Architektur: k.A. Klassifikation: Sicherheitsupdates Unterstützte Produkte: Office 2010 Unterstützte Sprachen: all MSRC-Nummer: k.A. MSRC-Sicherheit: Important KB-Artikelnummern: 4462223 Weitere Informationen: https://support.microsoft.com/kb/4462223 Support-URL: https://support.microsoft.com/?LN=de-de Schließen
01-01-2020, 01:47 AM
DocAElstein

Test draft copy of forum answers associated with lates XP updates issues

http://www.eileenslounge.com/viewtop...249846#p249846
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
( ( Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d )
)

I just finished unwrapping my Xmas present from Microsoft. It took me a couple of days. Despite having automatic updates disabled, occasionally a massive amount of updates still come down unexpectedly. It does not happen very often. I think theoretically it should never happen. But it does.

So one of my XP machines got the present.
I do have an extensive library of known "good and bad" Updates, and coding to sort through and compare them etc.. That usually helps identify the culprits. This time it only saw the old favourites that Microsoft like to send to cripple Active X controls, but never the less my XP was crippled by the issues discussed in this Thread.

I did identify some new updates that I had not seen before, but de installing them did not solve the problem , at least initially. After a lot of painstaking manual de installing and re installing updates I sorted the problem out…

It was very strange this time. By removing recent updates, I noticed that other updates suddenly appeared in the update this. They were not visible before. After removing some of those , the XP problem was solved. Furthermore I could re install most of the updated which I had originbally removed and still the XP problem does not return

Just to explain that again: In order to find the killer updates, you first have to de install some non offending updates. Only then do the killer updates show so that you can de install them. (A few other harmless updates may also suddenly appear). Then you can put the others back, if you like.

So finally below is the current list, with the recent ones at the bottom

If you don't find those,
or
you find some, de install them,
and still have the problem,
then try de installing a few other recent updates and then look at your update list again . If you then see any of the bad updates , then de install them. If that cures the problem then you may be able to re install some of the others you de installed without getting the problem.

In actual fact in my recent case, following the procedure that I have described, I now have all the updates that were showing after the unwanted Xmas present, and a few more, but I no longer have the problem, because I have de installed some of the bad updates, which were initially not showing after the unwanted present. Crazy situation!

Current Killer List
KB4461522 ( no longer available )
KB4461614 ( available , but not been offered for some time )
KB4462157 ( available , but not been offered for some time. ( Originally this was introduced to solve the problem. It never did. Quite the opposite: If you have the problem, then installing this update has no effect; but if you do not have the problem , and you instal this update, it causes the problem, just as all the other "killers do !!. ) )
KB4462174 ( available, and until recently, was still offered )
KB4462223
KB4464566 Probably the most recent killer
The last two may be hidden , and you may need to go through the steps I described to find them. Unfortunately I still have not figured out how to automate messing around with Office updates in XP ( I can do it with most everything else ). So you will need a few days to unwrap your present if you get one…

(P.s. Microsoft have locked some Threads on this, making it difficult to update people on the problem. But a few new Threads have also been started)

Ref:
https://social.technet.microsoft.com...eitproprevious
https://tinyurl.com/t73r3pg
https://social.technet.microsoft.com...?forum=outlook
Locked Threads:
https://answers.microsoft.com/en-us/...lc=1031&page=6
https://answers.microsoft.com/en-us/...fb63739&page=4
https://answers.microsoft.com/en-us/...16500c3?page=1
https://answers.microsoft.com/en-us/...2-7df17e82fb3d
01-01-2020, 07:40 PM
DocAElstein

In support of these Thread posts

http://www.excelfox.com/forum/showth...ll=1#post11015
http://www.eileenslounge.com/viewtop...262344#p262344

Code:

Sub TestWtchaGot_Unic_NotMuchIfYaChoppedItOff() Call WtchaGot_Unic_NotMuchIfYaChoppedItOff("Laptop" & ChrW(8207) & ChrW(5)) End Sub Sub WtchaGot_Unic_NotMuchIfYaChoppedItOff(ByVal strIn As String) ' Rem 1 ' Output "sheet hardcopies" '1a) Worksheets 'Make a Temporary Sheet, if not already there, in Current Active Workbook, for a simple list of all characters If Not Evaluate("=ISREF(" & "'" & "WotchaGotInString" & "'!Z78)") Then ' ( the ' are not important here, but iin general allow for a space in the worksheet name like "Wotcha Got In String" Dim Wb As Workbook ' ' ' Dim: ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense ) ' Set Wb = ActiveWorkbook ' ' Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want... Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 ' Wb.Worksheets.Add After:=Wb.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active Dim Ws As Worksheet ' Set Ws = ActiveSheet 'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want... Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 Ws.Activate: Ws.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error Let Ws.Name = "WotchaGotInString" Else ' The worksheet is already there , so I just need to set my variable to point to it Set Ws = ThisWorkbook.Worksheets("WotchaGotInString") End If '1b) Array Dim myLenf As Long: Let myLenf = Len(strIn) ' ' Long is very simple to handle, - final memory "size" type is known (123.456 and 000.001 have same "size" computer memory ) , and so a Address suggestion can be given for the next line when the variable is filled in. '( Long is a Big whole Number limit (-2,147,483,648 to 2,147,483,647) If you need some sort of validation the value should only be within the range of a Byte/Integer otherwise there's no point using anything but Long.--upon/after 32-bit, Integers (Short) need converted internally anyways, so a Long is actually faster. ) https://www.mrexcel.com/forum/excel-questions/803662-byte-backward-loop-4.html Dim arrWotchaGot() As String: ReDim arrWotchaGot(1 To myLenf + 1, 1 To 2) ' +1 for header Array for the output 2 column list. The type is known and the size, but I must use this ReDim method simply because the dim statement Dim( , ) is complie time thing and will only take actual numbers Let arrWotchaGot(1, 1) = Format(Now, "DD MMM YYYY") & vbLf & "Lenf is " & myLenf: Let arrWotchaGot(1, 2) = Left(strIn, 40) Rem 2 String anylaysis 'Dim myLenf As Long: Let myLenf = Len(strIn) Dim Cnt As Long For Cnt = 1 To myLenf ' ===Main Loop======================================================================== ' Character analysis: Get at each character Dim Caracter As Variant ' String is probably OK. Let Caracter = Mid(strIn, Cnt, 1) ' ' the character in strIn at position from the left of length 1 '2a) The character added to a single WotchaGot long character string to look at and possibly use in coding Dim WotchaGot As String ' This will be used to make a string that I can easilly see and also is in a form that I can copy and paste in a code line required to build the full string of the complete character string '2a)(i) Most common characters and numbers to be displayed as "seen normally" ' -------2a)(i)-- If Caracter Like "[A-Z]" Or Caracter Like "[0-9]" Or Caracter Like "[a-z]" Then ' Check for normal characters 'SirNirios If Not Cnt = 1 Then ' I am only intersted in next line comparing the character before, and if i did not do this the next line would error if first character was a "normal" character If Not Cnt = myLenf And (Mid(strIn, Cnt - 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt - 1, 1) Like "[0-9]" Or Mid(strIn, Cnt - 1, 1) Like "[a-z]") Then ' And (Mid(strIn, Cnt + 1, 1) Like "[A-Z]" Or Mid(strIn, Cnt + 1, 1) Like "[0-9]" Or Mid(strIn, Cnt + 1, 1) Like "[a-z]") Then Let WotchaGot = WotchaGot & "|LinkTwoNormals|" Else End If Else End If Let WotchaGot = WotchaGot & """" & Caracter & """" & " & " ' This will give the sort of output that I need to write in a code line, so for example if I have a123 , this code line will be used 4 times and give like a final string for me to copy of "a" & "1" & "2" & "3" & I would phsically need to write in code like strVar = "a" & "1" & "2" & "3" - i could of course also write = "a123" but the point of this routine is to help me pick out each individual element Else ' Some other things that I would like to "see" normally - not "normal simple character" - or by a VBA constant, like vbCr vbLf vbTab Select Case Caracter ' 2a)(ii)_1 Case " " Let WotchaGot = WotchaGot & """" & " " & """" & " & " Case "!" Let WotchaGot = WotchaGot & """" & "!" & """" & " & " Case "$" Let WotchaGot = WotchaGot & """" & "$" & """" & " & " Case "%" Let WotchaGot = WotchaGot & """" & "%" & """" & " & " Case "~" Let WotchaGot = WotchaGot & """" & "~" & """" & " & " Case "&" Let WotchaGot = WotchaGot & """" & "&" & """" & " & " Case "(" Let WotchaGot = WotchaGot & """" & "(" & """" & " & " Case ")" Let WotchaGot = WotchaGot & """" & ")" & """" & " & " Case "/" Let WotchaGot = WotchaGot & """" & "/" & """" & " & " Case "\" Let WotchaGot = WotchaGot & """" & "\" & """" & " & " Case "=" Let WotchaGot = WotchaGot & """" & "=" & """" & " & " Case "?" Let WotchaGot = WotchaGot & """" & "?" & """" & " & " Case "'" Let WotchaGot = WotchaGot & """" & "'" & """" & " & " Case "+" Let WotchaGot = WotchaGot & """" & "+" & """" & " & " Case "-" Let WotchaGot = WotchaGot & """" & "-" & """" & " & " Case "_" Let WotchaGot = WotchaGot & """" & "_" & """" & " & " Case "." Let WotchaGot = WotchaGot & """" & "." & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' ' 2a)(ii)_2 ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " ' Case " " ' Let WotchaGot = WotchaGot & """" & " " & """" & " & " Case vbCr Let WotchaGot = WotchaGot & "vbCr & " ' I actuall would write manually in this case like vbCr & Case vbLf Let WotchaGot = WotchaGot & "vbLf & " Case vbCrLf Let WotchaGot = WotchaGot & "vbCrLf & " Case vbNewLine Let WotchaGot = WotchaGot & "vbNewLine & " Case """" ' This is how to get a single " No one is quite sure how this works. My theory that, is as good as any other, is that syntaxly """" or " """ or """ " are accepted. But in that the """ bit is somewhat strange for VBA. It seems to match the first and Third " together as a valid pair but the other " in the middle of the 3 "s is also syntax OK, and does not error as """ would because of the final 4th " which it syntaxly sees as a valid pair matched simultaneously as it does some similar check on the first and Third as a concluding string pair. All is well except that the second " is captured within a accepted enclosing pair made up of the first and third " At the same time the 4th " is accepted as a final concluding " paired with the second which it is using but at the same time now isolated from. Let WotchaGot = WotchaGot & """" & """" & """" & """" & " & " ' The reason why "" "" would not work is that at the end of the "" the next empty character signalises the end of a string pair, and only if it saw a " would it keep checking the syntax rules which then lead in the previous case to the situation described above. Case vbTab Let WotchaGot = WotchaGot & "vbTab & " ' 2a)(iii) Case Else If AscW(Caracter) < 256 Then Let WotchaGot = WotchaGot & "Chr(" & AscW(Caracter) & ")" & " & " Else Let WotchaGot = WotchaGot & "ChrW(" & AscW(Caracter) & ")" & " & " End If 'Let CaseElse = Caracter End Select End If ' End of the "normal simple character" or not ' -------2a)------Ended----------- '2b) A 2 column Array for convenience of a list Let arrWotchaGot(Cnt + 1, 1) = Cnt & " " & Caracter: Let arrWotchaGot(Cnt + 1, 2) = AscW(Caracter) ' +1 for header Next Cnt ' ========Main Loop================================================================================= '2c) Some tidying up If WotchaGot <> "" Then Let WotchaGot = Left(WotchaGot, Len(WotchaGot) - 3) ' take off last " & " ( 2 spaces one either side of a & ) Let WotchaGot = Replace(WotchaGot, """ & |LinkTwoNormals|""", "", 1, -1, vbBinaryCompare) ' The next bit changes like this "Lapto" & "p" to "Laptop" You might want to leave it out ti speed things up a bit If Len(WotchaGot) > 5 And (Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 1, 1) Like "[a-z]") And (Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[A-Z]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[0-9]" Or Mid(WotchaGot, Len(WotchaGot) - 7, 1) Like "[a-z]") And Mid(WotchaGot, Len(WotchaGot) - 6, 5) = """" & " & " & """" Then Let WotchaGot = Left$(WotchaGot, Len(WotchaGot) - 7) & Mid(WotchaGot, Len(WotchaGot) - 1, 2) ' Changes like this "Lapto" & "p" to "Laptop" Else End If Else End If Rem 3 Output '3a) String MsgBox prompt:=WotchaGot: Debug.Print WotchaGot ' Hit Ctrl+g from the VB Editor to get a copyable version of the entire string '3b) List Dim NxtClm As Long: Let NxtClm = 1 ' In conjunction with next If this prevents the first column beine taken as 0 for an empty worksheet If Not Ws.Range("A1").Value = "" Then Let NxtClm = Ws.Cells.Item(1, Columns.Count).End(xlToLeft).Column + 1 Let Ws.Cells.Item(1, NxtClm).Resize(UBound(arrWotchaGot(), 1), UBound(arrWotchaGot(), 2)).Value = arrWotchaGot() Ws.Cells.Columns.AutoFit End Sub '
01-04-2020, 01:30 AM
DocAElstein

Coding for this Thread post
http://www.excelfox.com/forum/showth...ll=1#post11827

Code:

Sub MakeFormulas4() ' http://www.excelfox.com/forum/showthread.php/2390-Apply-Vlookup-formula-in-all-the-available-sheets-in-a-workbook?p=11827&viewfull=1#post11827 Rem 1 ' Workbooks info ' 1a This months book, this workbook. It is the outout book for the current month Dim ThisMonthsLatestBook As Workbook, LisWbName As String Set ThisMonthsLatestBook = ThisWorkbook ' ActiveWorkbook Let LisWbName = ThisMonthsLatestBook.Name ' If InStr(7, LisWbName, Format(Now(), "MMM"), vbTextCompare) = 0 Then MsgBox Prompt:="This workbook is not for " & Format(Now(), "MMMM"): Exit Sub 'Dim BookN As Long ' Let BookN = Mid(LisWbName, 5, InStr(5, LisWbName, "_", vbBinaryCompare) - 5) ' 1b Last months book Dim strDteLisBk As String, DteLisBk As Date Let strDteLisBk = Mid(LisWbName, 32, 8) Dim LooksLikeADate As String: Let LooksLikeADate = Right(strDteLisBk, 2) & "." & Mid(strDteLisBk, 5, 2) & "." & Left(strDteLisBk, 4) Let DteLisBk = CDate(LooksLikeADate) ' 31.12.2019 Looks like a date Dim sourceBookName As String ' Let sourceBookName = "Book" & BookN - 1 & "_" & Format(DateAdd("m", -1, Now()), "MMM YYYY") & ".xlsm" Let sourceBookName = "MSCI Equity Index Constituents " & Format(DateAdd("m", -1, DteLisBk), "YYYYMMDD") & ".xlsm" Dim sourceBook As Workbook Set sourceBook = Workbooks.Open(ThisWorkbook.Path & "\" & sourceBookName) Rem 2 Make records worksheet Sub MakeWorkSheetIfNotThere() 'Dim Wb As Workbook ' ' ' Dim: ' Preparing a "Pointer" to an Initial "Blue Print" in Memory of the Object ( Pigeon Hole with a bit of paper or code lines on that can be filled in to refer to a specific Objec of this type ) . This also us to get easily at the Methods and Properties throught the applying of a period ( .Dot) ( intellisense ) ' ' Set Wb = ActiveWorkbook ' ' Set now (to Active Workbook - one being "looked at"), so that we carefull allways referrence this so as not to go astray through Excel Guessing inplicitly not the one we want... Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 ' If Not Evaluate("=ISREF(" & "'" & "Records" & "'!Z78)") Then ' ( the ' are not important here, but in general allow for a space in the worksheet name like "My Records" ThisMonthsLatestBook.Worksheets.Add After:=ThisMonthsLatestBook.Worksheets.Item(Worksheets.Count) 'A sheeet is added and will be Active Dim wsRcds As Worksheet ' Set wsRcds = ThisMonthsLatestBook.Worksheets.Item(ThisMonthsLatestBook.Worksheets.Count) 'Rather than rely on always going to the active sheet, we referr to it Explicitly so that we carefull allways referrence this so as not to go astray through Excel Guessing implicitly not the one we want... Set: Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 ' Values are filled at the memory locations and the directions there are specified in the variable "Blue Print "Pointer". In this case a Filled in Blue Print is passed. http://www.excelforum.com/excel-programming-vba-macros/1138804-help-understanding-class-instancing-cant-set-ws-new-worksheet-intellisense-offers-it-4.html#post4387191 wsRcds.Activate: wsRcds.Cells(1, 1).Activate ' ws.Activate and activating a cell sometimes seemed to overcome a strange error Let wsRcds.Name = "Records" Else ' The worksheet is already there , so I just need to set my variable to point to it Set wsRcds = ThisWorkbook.Worksheets("Records") End If ' End Sub Rem 3 looping through worksheets Dim C As Long, I As Long 'C = ActiveWorkbook.Worksheets.Count 'Let C = ThisWorkbook.Worksheets.Count Let C = ThisMonthsLatestBook.Worksheets.Count - 1 ' -1 since last worksheet is records worksheet 'For I = 1 To C 'Application.ScreenUpdating = True For I = 1 To C ' Sheet1 , Sheet2 , Sheet3 ....... 'what are our worksheets? I = 1 , 2 , 3 .......... Dim sourceSheet As Worksheet Set sourceSheet = sourceBook.Worksheets.Item(I) ' ("Sheet1") , Sheet2 , Sheet3 ........ Dim outputSheet As Worksheet Set outputSheet = ThisWorkbook.Worksheets.Item(I) ' ("Sheet1") , Sheet2 , Sheet3 ........ 'Determine last row of source With sourceSheet Dim SourceLastRow As Long SourceLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With With outputSheet 'Determine last row in col P Dim OutputLastRow As Long OutputLastRow = .Cells(.Rows.Count, "P").End(xlUp).Row End With 'Apply our formula in records worksheet With Worksheets("Records") Let .Cells.Item(1, I).Value = sourceSheet.Name ' Header in column as worksheet name '.Range("Q2:Q" & OutputLastRow).Formula = "=VLOOKUP($A2,'[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)" .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = "=VLOOKUP(" & outputSheet.Name & "!$A2,'" & sourceBook.Path & "\" & "[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$P$" & SourceLastRow & ",3,0)" ' .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value = .Range("" & CL(I) & "2:" & CL(I) & "" & OutputLastRow).Value End With 'MsgBox ActiveWorkbook.Worksheets(I).Name MsgBox ActiveWorkbook.Worksheets.Item(I).Name Next I 'Next P Rem 4 Dim cel As Range With Worksheets("Records").UsedRange For Each cel In .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count) If IsError(cel.Value) Then ' Else If cel.Value < 3 Then cel.Font.Color = vbRed Else cel.Font.Color = vbGreen End If End If Next cel End With 'Close the source workbook, don't save any changes sourceBook.Close False ' Application.ScreenUpdating = True End Sub
01-07-2020, 05:50 PM
DocAElstein

Coding in support of these Thread posts
http://www.excelfox.com/forum/showth...ll=1#post11569
http://www.excelfox.com/forum/showth...ll=1#post11672

Code:

Sub ipconfigall_routeprint(Optional ByVal Msg As String) ' Rem 1 ipconfig /all Shell "cmd.exe /c ""ipconfig /all > """ & ThisWorkbook.Path & "\ipconfig__all.txt""""" ' Get the entire text file as a string Dim FileNum As Long: Let FileNum = FreeFile(1) ' Dim PathAndFileName As String, strIPcon As String Let PathAndFileName = ThisWorkbook.Path & "\ipconfig__all.txt" ' Let PathAndFileName = ThisWorkbook.Path & "\test2B.txt" ' Al Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input... strIPcon = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length Get #FileNum, , strIPcon Close #FileNum ' Tidy the string Let strIPcon = Replace(strIPcon, vbCr & vbCr, vbCr, 1, -1, vbBinaryCompare) Let strIPcon = Replace(strIPcon, vbTab, " ", 1, -1, vbBinaryCompare) ' add any extra info to string Dim PublicIP As String: Call PubicIP(PublicIP) Let strIPcon = "ipconfig /all route print" & Msg & vbCr & vbLf & ComputerName & vbCr & vbLf & GetIpAddrTable & vbCr & vbLf & PublicIP & vbCr & vbLf & vbCr & vbLf & """" & Format(Now, "DD MMM YYYY") & " " & vbLf & " " & Format(Now, "hh mm ss") & """" & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & strIPcon ' vbLf is recognised as a new line within an Excel" ' String content check ' Call WtchaGot(strIPcon) ' put the text in the clipboard Dim objDataObject As Object: Set objDataObject = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") objDataObject.SetText strIPcon: objDataObject.PutInClipboard ' Excel Worksheet Dim Ws As Worksheet: Set Ws = ActiveSheet Dim Clm As Range, NxtClm As Long Set Clm = Ws.Cells.Find(What:="*", After:=Ws.Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False) If Clm Is Nothing Then Let NxtClm = 2 Else Let NxtClm = Clm.Column + 1 End If ' Put in next free column in Active sheet Ws.Paste Destination:=Ws.Cells.Item(1, NxtClm) ' Ws.Columns.AutoFit: Ws.Rows.AutoFit Rem 2 route print Shell "cmd.exe /c ""route print > """ & ThisWorkbook.Path & "\route_print.txt""""" ' Get the entire text file as a string Let FileNum = FreeFile(1) ' ' The "highway/ street/ link" to be built to transport the text will be given a number. It must be unique. So we use for convenience, the Freefile function: it returns an integer that represents the next file number that the Open statement can use. The optional argument for the range number is a variant that is used to specify a range from which the next free file number is returned. Enter a value of data type 0 (default) to return a file number in the range 1 - 255 inclusive. Enter 1 to return a file number in the range 256 - 511. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freefile-function . Note also : Use file numbers in the range 1-255, inclusive, for files not accessible to other applications. Use file numbers in the range 256-511 for files accessible from other applications Dim strrouteprint As String Let PathAndFileName = ThisWorkbook.Path & "\route_print.txt" ' Let PathAndFileName = ThisWorkbook.Path & "\test2B.txt" ' Al Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundemental type data input... strrouteprint = VBA.Strings.Space$(LOF(FileNum)) '....and wot recives it hs to be a string of exactly the right length Get #FileNum, , strrouteprint Close #FileNum ' Tidy the string Let strrouteprint = Replace(strrouteprint, vbCr & vbCr, vbCr, 1, -1, vbBinaryCompare) Let strrouteprint = Replace(strrouteprint, vbTab, " ", 1, -1, vbBinaryCompare) ' put the text in the clipboard objDataObject.SetText strrouteprint: objDataObject.PutInClipboard ' Excel Worksheet Dim Lr As Long: Let Lr = Ws.Cells(Ws.Rows.Count, NxtClm).End(xlUp).Row ' Put in next free column in Active sheet Ws.Paste Destination:=Ws.Cells.Item(Lr + 30, NxtClm) Ws.Columns.AutoFit: Ws.Rows.AutoFit ActiveWindow.Panes(2).Activate Ws.Cells.Item(1, NxtClm).Select End Sub '
01-10-2020, 12:31 AM
DocAElstein

In support of this Thread
http://www.excelfox.com/forum/showthread.php/2402-Extract-Multiple-Rows-into-a-Limited-Template-based-on-Multiple-Criterias
http://www.excelfox.com/forum/showth...iple-Criterias

Summary worksheet, before

_____ Workbook: BeforeDumpTemplate.xlsm ( Using Excel 2007 32 bit )

_Row\^Col
A

B

C

D

1
Voucher Date Link

2
Go To Sheet

3
Go To Sheet

4

Worksheet: Summary

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
http://www.eileenslounge.com/viewtopic.php?f=30&t=41784
http://www.eileenslounge.com/viewtopic.php?p=323966#p323966
http://www.eileenslounge.com/viewtopic.php?p=323959#p323959
http://www.eileenslounge.com/viewtopic.php?p=323960#p323960
http://www.eileenslounge.com/viewtopic.php?p=323894#p323894
http://www.eileenslounge.com/viewtopic.php?p=323843#p323843
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa6BSa173Z
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa6-64Xpgl
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa5ms39yjd
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa5ZXJwRCM
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa4Pr15NUt
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABa4I83JelY
https://www.youtube.com/watch?v=C43btudYyzA&lc=Ugyf349Ue6_4umFfNUB4AaABAg. 8mjgPNoTt_HABa3tnAjhZU
https://www.youtube.com/watch?v=C43btudYyzA&lc=Ugyf349Ue6_4umFfNUB4AaABAg. 8mjgPNoTt_HABa3KswxL3c
https://www.youtube.com/watch?v=suUqEo3QWus&lc=UgyBXFxnVWT3pqtdqPx4AaABAg
https://www.youtube.com/watch?v=suUqEo3QWus&lc=Ugi53h84LUm5bHgCoAEC.7-H0Z7-COoGABZFQ8vjEvY
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABZ8N9O-O8p
http://www.eileenslounge.com/viewtopic.php?p=323547#p323547
http://www.eileenslounge.com/viewtopic.php?p=323516#p323516
http://www.eileenslounge.com/viewtopic.php?p=323517#p323517
http://www.eileenslounge.com/viewtopic.php?p=323449#p323449
http://www.eileenslounge.com/viewtopic.php?p=323226#p323226
http://www.eileenslounge.com/viewtopic.php?f=25&t=41702&p=323150#p323150
http://www.eileenslounge.com/viewtopic.php?p=323085#p323085
http://www.eileenslounge.com/viewtopic.php?p=322955#p322955
http://www.eileenslounge.com/viewtopic.php?f=30&t=41659
https://www.youtube.com/watch?v=suUqEo3QWus&lc=Ugi53h84LUm5bHgCoAEC.7-H0Z7-COoGABZFQ8vjEvY
https://www.youtube.com/watch?v=3t8Mk4URi6g&lc=UgzoakhRXOsCaoRm_Nd4AaABAg. 8xzeMdC8IOGABZ8N9O-O8p
https://www.youtube.com/watch?v=C43btudYyzA&lc=UgxREWxgx2z2Lza_0st4AaABAg
https://www.youtube.com/watch?v=C43btudYyzA&lc=UgyikSWvlxbWS24NBeR4AaABAg
https://www.youtube.com/watch?v=C43btudYyzA&lc=UgwNiH4hhyrd2UjDK8d4AaABAg
https://www.youtube.com/watch?v=C43btudYyzA&lc=Ugyf349Ue6_4umFfNUB4AaABAg. 8mjgPNoTt_HAAf952WoUti
https://www.youtube.com/watch?v=hz4vb48wzMM&lc=Ugy2N3gvXBNrvWpojqR4AaABAg
http://www.eileenslounge.com/viewtopic.php?p=322462#p322462
http://www.eileenslounge.com/viewtopic.php?p=322356#p322356
http://www.eileenslounge.com/viewtopic.php?p=321984#p321984
https://eileenslounge.com/viewtopic.php?f=30&t=41610
https://eileenslounge.com/viewtopic.php?p=322176#p322176
https://eileenslounge.com/viewtopic.php?p=322238#p322238
https://eileenslounge.com/viewtopic.php?p=322270#p322270
https://eileenslounge.com/viewtopic.php?p=322300#p322300
http://www.eileenslounge.com/viewtopic.php?p=322150#p322150
http://www.eileenslounge.com/viewtopic.php?p=322111#p322111
http://www.eileenslounge.com/viewtopic.php?p=322086#p322086
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Show 40 post(s) from this thread on one page

_Row\^Col	A	B	C
1	Voucher	Date	Link
2			Go To Sheet
3			Go To Sheet
4