25ddg13

*£) File Edit	View insert Run Tools Window Help
Digital	# a y & ® <?		O C*	zl*l śilsil LSl#l-ell 3 Qk?l
i		bi u w w m $ % , tó8 n - <tih
<*1 nl«l	► > II ■ •		*1 Cl
3

ImportDataDictionary Hacro

Hacro recorded 1/29/96 by Hatthew Harris

Imports a Data Dictionary .txt file created by VB4DD

Sub ImportDataDictionary()

Uorkfoooks.OpenText Filename:= _

"C:\DDG_VB4\32_BIT\Chaptr25\Northuind Data Dictionary\Northuind.txt", _

Origin:=xlUindows, StartRow:=1, DataType:=xlDelimited, _

TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tafo:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, _

Fieldlnfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Arra

Columns("A:A"] Columns("B:B"] Columns("C:C"] Columns("D:D"]

.ColumnUidth = 4.43 .ColumnUidth = 17.71 .ColumnUidth = 16.57 .ColumnUidth = 14.86

i< | < I ► I "W Modulel / VBHelp / Module2 \Module3/~

Ready

■JaIJ

NUM