fixed submain 🐥

' ===== MAIN MACRO =====
Sub MainMacro()

    Dim inputData As String

    ' Step 1 — Get data from the selected text file
    inputData = GetTextFromFile()

    ' Step 2 — Check if user canceled or file was empty
    If inputData = "" Then
        MsgBox "No data selected or file is empty.", vbExclamation
        Exit Sub
    End If

    ' Step 3 — Use the data (you can replace this logic)
    MsgBox "Text file data loaded successfully!" & vbCrLf & vbCrLf & _
           Left(inputData, 500) & vbCrLf & "..." & vbCrLf & "(Only first 500 characters shown)", vbInformation

    ' Step 4 — You can process or display the data below
    ' Example: Debug.Print inputData
    ' Or write it into cells, etc.

End Sub


' ===== HELPER FUNCTION =====
Function GetTextFromFile() As String

    Dim filePath As String
    Dim fileNo As Integer
    Dim fileContent As String
    Dim lineText As String

    ' Open File Picker Dialog
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select a Text File"
        .Filters.Clear
        .Filters.Add "Text Files", "*.txt"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Function ' Cancel pressed
        filePath = .SelectedItems(1)
    End With

    ' Read full content of file
    fileNo = FreeFile
    Open filePath For Input As #fileNo
    Do Until EOF(fileNo)
        Line Input #fileNo, lineText
        fileContent = fileContent & lineText & vbCrLf
    Loop
    Close #fileNo

    GetTextFromFile = fileContent

End Function

Comments

Post a Comment

Popular posts from this blog

fixed

Sub Select_Bulk_Data_InputBox_Final2()     Dim sheetName As String     sheetName = "Data 1" ' <<-- Change the sheet name here only (exact name)     Dim wb As Workbook     Dim ws As Worksheet     Dim rng As Range     Dim inputData As String     Dim arrInput As Variant     Dim searchValues() As String     Dim cleanedValues() As String     Dim removeChars As String     Dim arrRemove As Variant     Dim removeProvided As Boolean     Dim colInput As String     Dim arrCols As Variant     Dim validCols As Collection     Dim foundSheet As Worksheet, notFoundSheet As Worksheet     Dim i As Long, j As Long, k As Long     Dim cell As Range     Dim cellValue As String     Dim lastCol As Long     Dim foundCount As Long, notFoundCount As Long     Dim isFound As Boolean   ...
Read more

fixed 😃😃😃

Sub Select_Bulk_Data_InputBox_Final3()     Dim sheetName As String     sheetName = "Data 1" ' <<-- Change the sheet name here only (exact name)          Dim wb As Workbook     Dim ws As Worksheet     Dim rng As Range     Dim inputData As String     Dim arrInput As Variant     Dim searchValues() As String     Dim cleanedValues() As String     Dim removeChars As String     Dim arrRemove As Variant     Dim removeProvided As Boolean     Dim colInput As String     Dim arrCols As Variant     Dim validCols As Collection     Dim resultSheet As Worksheet     Dim i As Long, j As Long, k As Long     Dim cell As Range     Dim cellValue As String     Dim lastCol As Long     Dim foundCount As Long     Dim isFound As Boolean     Dim msgText As String ...
Read more

babyGirl

 Sub Select_Bulk_Data_InputBox()     Dim ws As Worksheet     Dim rng As Range     Dim cell As Range     Dim inputData As String     Dim searchValues() As String     Dim i As Long, j As Long     Dim cellValue As String     Dim selRange As Range     Dim lastCol As Long     Dim searchText As String     Dim colInput As String     Dim colNumbers() As String     Dim colNum As Long     Dim validCols As Collection     Dim removeChars As String     Dim removeList() As String     Dim k As Long     ' Sheet reference     Set ws = ThisWorkbook.Sheets("Data 1")     Set rng = ws.UsedRange          ' Clear previous selection     ws.Cells(1, 1).Select          ' Step 1: Get bulk data from user     inputData = InputBox("Paste your bul...
Read more