Dus,
Als ik platte tekst met tabs plak ik Excel geen probleem, maar nadat ik het volgende script draai zijn de tabs ineens vierkantjes (na het handmatig plakken van de tekst). Ik neem aan dat ik ergens een "palletje" op uit zet dat weer aangezet moet worden na afloop van het (deels opgenomen) script.
Martijn - Microsoft Office Excel 2007 - MS VB 6.3
Als ik platte tekst met tabs plak ik Excel geen probleem, maar nadat ik het volgende script draai zijn de tabs ineens vierkantjes (na het handmatig plakken van de tekst). Ik neem aan dat ik ergens een "palletje" op uit zet dat weer aangezet moet worden na afloop van het (deels opgenomen) script.
Martijn - Microsoft Office Excel 2007 - MS VB 6.3
Code:
Sub groupshield()
'
' groupshield Macro
' voor mailscanner groupshield
'
' Sneltoets: CTRL+l
'
Workbooks.OpenText Filename:= _
"F:\Data\Algemeen\Kantoor\Automatisering\GroupShield_for_Exchange.csv", Origin _
:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1)), TrailingMinusNumbers:=True
Columns("B:I").Select
Selection.ColumnWidth = 40
Columns("C:G").Select
Selection.EntireColumn.Hidden = True
Columns("A:A").Select
Selection.ColumnWidth = 16
Range("A1").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("GroupShield_for_Exchange").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("GroupShield_for_Exchange").AutoFilter.Sort. _
SortFields.Add Key:=Range("I1:I1001"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("GroupShield_for_Exchange").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.WindowState = xlMaximized
ActiveSheet.Range("$A$1:$I$1001").AutoFilter Field:=8, Criteria1:=Array( _
"een heleboel e-mailadressen"), Operator:=xlFilterValues
End Sub
