J
James Kendall
I want Access to run this macro dealing with excel but run it through access.
Where to I start?
Here is the Excel Macro.
Sub CompressPN()
'
' CompressPN Macro
' Macro recorded by E127232 (James Kendall)
'
'
Workbooks.Open Filename:= _
"N:\@Quality\Packaging Audits\COO Database\Mainframe Order
Multiples.xls"
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Any help would be great.
Where to I start?
Here is the Excel Macro.
Sub CompressPN()
'
' CompressPN Macro
' Macro recorded by E127232 (James Kendall)
'
'
Workbooks.Open Filename:= _
"N:\@Quality\Packaging Audits\COO Database\Mainframe Order
Multiples.xls"
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Any help would be great.