Macro not working properly

[msumith]

Hi Mr. Excel,

I was using your book "Excel 2010 VBA and Macros" in which I was in 1st Chapter where I am trying to import a file invoice.txt using the macro I am recording.

I am not seeing the code which is importing but all others are fine.

I am only able to see the following code, can you help me why the code for importing the file is not being recorded.

Sub ImportInvoice()
'
' ImportInvoice Macro
' Does import of file
'
' Keyboard Shortcut: Ctrl+i
'
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("A20").Select
ActiveCell.FormulaR1C1 = "Total"
Range("D20").Select
ActiveWindow.SmallScroll Down:=-21
Range("E20").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-18]C:R[-1]C)"
Range("E20").Select
Selection.Copy
Range("F20:G20").Select
Application.CutCopyMode = False
Range("E20").Select
Selection.AutoFill Destination:=Range("E20:G20"), Type:=xlFillDefault
Range("E20:G20").Select
Rows("1:1").Select
Selection.Font.Bold = True
Rows("20:20").Select
Selection.Font.Bold = True
Cells.Select
Range("H11").Activate
Selection.Columns.AutoFit
Range("L18").Select
End Sub

 

[AlphaFrog]

In the VBA editor, on the right-side of the screen is the Project-VBAProject pane (Ctrl+r to view it if not visible).

In the VBAProject window you should have a tree view with Module1 and maybe Module2 at the bottom. Your recorded macro code is probably in Module1 or in Module2. Double click on them to view.

 

[msumith]

Hi I am using the Excel 2010 and I am able to see only one Module.

The problem is that the entire code is not visible only a part of the code is present and it is working partially.

The import of file is not showing but the rest of the commands are present. So when I run the macro is it only doing the formatting and calculation but not the import of the file.

Workbooks.OpenText Filename:= _
“C:\invoice.txt”, Origin:=437, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), Array(3, 1), _
Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _​

TrailingMinusNumbers:=True