Sub Update()
'
' Update Macro
' Macro recorded 19/04/2006 by paulwadsworth
'
'
Workbooks.OpenText Filename:= _
Range(quot;H2quot;), Origin:=932, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:=quot;|quot;,
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 4), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),
Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26,
1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1)),
TrailingMinusNumbers _
:=True
Cells.Select
Selection.Copy
Application.WindowState = xlMinimized
Windows(quot;Statusquot;).Activate
Sheets(quot;ZZquot;).Select
Range(quot;A1quot;).Select
ActiveSheet.Paste
Sheets(quot;Sheet4quot;).Select
Range(quot;A11quot;).Select
Application.CutCopyMode = False
ActiveSheet.PivotTables(quot;PivotTable1quot;).PivotCache. Refresh
End Sub
This minimises the spreadsheet when I run it... is there anyway of stopping
that?
Nevermind! just noticed that line, no idea where that came from!
quot;PaulWquot; wrote:
gt; Application.WindowState = xlMinimized
- Sep 29 Fri 2006 20:09
Running Macro minimises window
close
全站熱搜
留言列表
發表留言