VBA를 사용하여 txt 파일을 작성하는 방법

Question

VBA에서 매크로를 사용하여 셀의 일부 문자열을 검색하고 txt 파일에 Excel 파일의 경로를 쓴 후 파일이 제대로 작동하지 않는 경우 txt 파일에 쓰기 및 검색 문자열. 내가 어떻게 할 수 있니?

감사합니다.

내 코드는 다음과 같습니다

잘

Option Explicit 

Sub MACRO() 
    Dim ruta As String 
    Dim fi As Long 
    Dim pos As Integer 
    Dim Sht As Worksheet 
    Dim cell As Object 

    fi = FreeFile 
    ruta = "C:\Users\PE0223\Desktop\Ficheros_Con_Links.txt" 
    Set Sht = ThisWorkbook.ActiveSheet 

    On Error GoTo Err 
    Open ruta For Output As #fi 
    On Error GoTo 0 
    'Application.DisplayAlerts = False 
    For Each cell In Sht.UsedRange.Cells 
     pos = InStr(cell.Formula, "C:\") 
     If pos <> 0 Then 
      Print #fi, ActiveWorkbook.Path & "\" & ThisWorkbook.Name 
     End If 
    Next 

    Close #fi 
    Exit Sub 

Err: 
    Close #fi 
End Sub 

Answer 1

귀하의 코드는 vb.net 것 같다 내가 코드를 변경, 지금 VB_Name = "Buscar_String"

Sub MACRO() 
    Dim ruta As String = "C:\Ficheros_Con_Links.txt" 
    Dim fi As FileInfo = New FileInfo(ruta) 
    Dim sw As StreamWriter 
    Dim Sht As Worksheet 
    Application.DisplayAlerts = False 
    For Each cell in Sht.Cells 
     If strComp(cell, "T:\", 1) = 0 then 
      If File.Exists(ruta) = False Then 
       sw = File.CreateText(ruta) 
      End If 
     sw.WriteLine (ActiveWorkbook.Path & "\" & ThisWorkbook.Name) 
     sw.Flush() 
     sw.Close() 
     End If 
    Next 
End Sub 

속성 및 작업 , vba가 아닙니다. 경우

당신은 여기 코드는, VBA의 솔루션이 필요합니다 :

Option Explicit 

Sub MACRO() 
    Dim ruta As String 
    Dim fi As Long 
    Dim Sht As Worksheet 
    Dim cell As Object 

    fi = FreeFile 
    ruta = "D:\Ficheros_Con_Links.txt" 
    Set Sht = ThisWorkbook.ActiveSheet 

    On Error GoTo Err 
    Open ruta For Output As #fi 
    On Error GoTo 0 
    'Application.DisplayAlerts = False 
    For Each cell In Sht.UsedRange.Cells 
     If StrComp(cell, "T:\", 1) = 0 Then 
      Print #fi, ActiveWorkbook.Path & "\" & ThisWorkbook.Name 
     End If 
    Next 

    Close #fi 
    Exit Sub 

Err: 
    Close #fi 
End Sub 

업데이트 : 주석에서 설명하고있는 바와 같이

은 아래를 참조 코드를 변경 -가있는 경우에도이 텍스트를 찾아야한다 긴 문자열.

Sub MACRO() 
    Dim ruta As String 
    Dim fi As Long 
    Dim Sht As Worksheet 
    Dim cell As Range 

    fi = FreeFile 
    ruta = "D:\Ficheros_Con_Links.txt" 
    Set Sht = ThisWorkbook.ActiveSheet 

    On Error GoTo Err 
    Open ruta For Output As #fi 
    On Error GoTo 0 
    'Application.DisplayAlerts = False 
    For Each cell In Sht.UsedRange.Cells 
     If InStr(cell.Value, "T:\") > 0 Then 
      Print #fi, ActiveWorkbook.Path & "\" & ThisWorkbook.Name 
     End If 
    Next 

    Close #fi 
    Exit Sub 

Err: 
    Close #fi 
End Sub