Visual Basic para Aplicaciones - parar la macro si nohay datos en archivo externo?

mi problema consiste en que tengo que extraer datos de un bloc de notas, pero cuando esta vacio se produce un error, y lo que se nececita es que se revice el bloc de notas y si no tiene nada se detenga la macro de lo contrario que continue.

para detener la macro podes usar Exit Sub (procedimiento) o End
podrías poner el código para ver de qué se trata?

Saludos, desde Baires, JuanC

bueno el codigo no lo tengo, pero se trata de datos que se extraen de un bloc de notas con aproximadamente diez columnas, y no caben en una hoja de excel en ocaciones, esta informacion la tengo en el trabajo y no se puede poner para llevar, sin en canbio solo necesito saber si trabajo la funcion IF, o no ya que esa utiliza un escript, y funciona cuando el bloc esta vacio aparece una cuadro de dialogo que dice archivo vacio, revivizar y vuelva a intentarlo, de lo contrario continua. algo asi

IF user = "" then
msgbox archivo corrupto
Emkey f3,
Emkey f3,
msgbox revise el archivo de entrada e intente de nuevo

else
aqui lee el archivo de entrada

end if

obvimente esto no es correcto pero creo que explica que necesito.

nota: segun dice si user = a nada entonces abre ventana que diga archivo corrupto, me saca de ese sistema con f3, y dice revise el archivo de entrada e intente de nuevo, de la contrario lee el archivo.

la verdad es que entiendo menos que antes...

ok me referia a como devo escribir la condicion If para lo siguinte:

Sub Macro1()
'
' Macro1 Macro
'

'
if C:Documents and SettingsxpMis documentosF5.txt = "(nada)" then
msg reviza archivo de entrada '
exit sub
else

Range("A1").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:Documents and SettingsxpMis documentosF5.txt", Destination:=Range _
("$A$1"))
.Name = "F5"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(4, 7, 7, 6, 10, 11, 13, 8, 6, 8, 6, 6, 8, 6, 5)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
end if
End Sub

NOTA: LA CONDICION IF SE QUE ESTA MAL PERO COMO DEVE IR.

si el problema es saber si el archivo de texto plano .txt tiene o no
datos, deberías abrirlo y leerlo como cualquier archivo, o también
podrías verificar su tamaño...
a este procedimiento lo conviertes en una función que devuelva
un valor booleano y listo...

EJ:

If Check_TXT = False Then
MsgBox "revisa archivo de entrada"
Exit Sub
Else
....
End If

Function Check_TXT() As Boolean
Dim hFile%, sFileName$, sLinea$
sFileName = "archivo.txt"
hFile = FreeFile
Open sFileName For Input Access Read As #hFile

Do While Not EOF(hFile)
Line Input #hFile, sLinea '//Lee primer línea
If Trim(sLinea) = "" Then
'//No hay nada!
Chech_TXT = False
Else
Check_TXT = True
End If
Exit Do
Loop

Close hFile
End Function

Saludos, desde Baires, JuanC

¿Y donde pongo el nombre de el bloc de notas?

Saludos de Ixtapaluca. donde es Baires

cómo el bloc de notas?? no sacás los datos de un archivo de texto?

Baires es Buenos Aires, Argentina