|
PutRecordsetInCells
|
Dec 2 2006, 12:09 PM EST |
|
edit |
1 word added
1 word deleted
|
Change:
go. ' Call PutRecordsetInCells(sSql,PutRecordsetInCells(rs, oWorksheet, "A1") Dim i, iRowCount For i = 0 To vrs.Fields.Count - 1 With voWorksheet.Range(vsStartCell).Offset(0, i) .Value2 = vrs.Fields(i).Name .Font.Bold = True .Borders(9).LineStyle = 1 ' <-- 9 means bottom, 1 means continuous. End With Next iRowCount = voWorksheet.Range(vsStartCell).Offset(1, 0).CopyFromRecordset(vrs) PutRecordsetInCells = iRowCount End Function
View changes from previous version.
(Word count: 97)
View all updates.
|
|
PutRecordsetInCells
|
Dec 2 2006, 12:06 PM EST |
|
edit |
87 words added
|
Change:
'Puts the results of a SQL statement into the Excel worksheet. 'Returns row count. 'vsStartCell is a cell identifier like "A1" of the 'upper left corner of where the results should go. ' Call PutRecordsetInCells(sSql, oWorksheet, "A1") Dim i, iRowCount For i = 0 To vrs.Fields.Count - 1 With
View changes from previous version.
(Word count: 97)
View all updates.
|
|
PutRecordsetInCells
|
Dec 2 2006, 12:05 PM EST |
|
create |
No content added or deleted. |
Change:
Created by Dec 2 2006, 12:05 PM EST for: no reason given
View all updates.
|
|
GetSettings
|
Dec 2 2006, 11:35 AM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 102)
View all updates.
|
|
GetSettings
|
Dec 2 2006, 11:33 AM EST |
|
edit |
99 words added
|
Change:
'The first column in the file is the setting name and the second is the value. 'A third column can be used for comments. ' Dim cSettings ' Set cSettings = GetCSVCollection("Settings.csv") Dim asRows, cSettings, i, asEntries asRows = Split(GetFileContents(vsFilePath), vbCrLf) Set cSettings = CreateObject("Scripting.Dictionary") For i
View changes from previous version.
(Word count: 102)
View all updates.
|
|
GetSettings
|
Dec 2 2006, 11:30 AM EST |
|
create |
No content added or deleted. |
Change:
Created by Dec 2 2006, 11:30 AM EST for: no reason given
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 11:27 AM EST |
|
edit |
11 words added
|
Change:
NOTE: This one is not as good as the VB6 one.Function GetCSVCollection(ByVal vsFilePath) 'Returns a collection of collections.'There's a collection for each row.'The file is made by saving an Excel spreadsheet as a CSV file.' Dim cEntries' Set cEntries = GetCSVCollection("Entries.csv")Dim asRows,
View changes from previous version.
(Word count: 128)
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 11:26 AM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 117)
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 11:24 AM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 117)
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 8:26 AM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 117)
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 8:20 AM EST |
|
edit |
113 words added
|
Change:
'The file is made by saving an Excel spreadsheet as a CSV file. ' Dim cEntries ' Set cEntries = GetCSVCollection("Entries.csv") Dim asRows, asFieldNames, cRecordSet, i, asFieldValues Dim cRecord, iFieldCount, j asRows = Split(GetFileContents(vsFilePath), vbCrLf) asFieldNames = Split(asRows(0), ",") Set cRecordSet = CreateObject("Scripting.Dictionary") For i = 1 To UBound(asRows)
View changes from previous version.
(Word count: 117)
View all updates.
|
|
VBSCript GetCSVCollection
|
Dec 2 2006, 8:19 AM EST |
|
create |
No content added or deleted. |
Change:
Created by Dec 2 2006, 8:19 AM EST for: no reason given
View all updates.
|
|
GetFileContents
|
Dec 2 2006, 12:01 AM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 83)
View all updates.
|
|
GetFileContents
|
Dec 2 2006, 12:01 AM EST |
|
edit |
81 words added
|
Change:
'Returns a string containing all the text in a file. 'The default folder depends on how the script is run. 'But it's usually the folder the script is in. ' Dim sContents ' sContents = GetFileContents("smr_mt571_extract.txt") ' MsgBox Len(sContents) Dim oFso, oFile, oTs Set oFso = CreateObject("Scripting.FileSystemObject") Set
View changes from previous version.
(Word count: 83)
View all updates.
|
|
GetFileContents
|
Dec 2 2006, 12:01 AM EST |
|
create |
No content added or deleted. |
Change:
Created by Dec 2 2006, 12:01 AM EST for: no reason given
View all updates.
|
|
VBScript
|
Dec 1 2006, 11:59 PM EST |
|
create |
No content added or deleted. |
Change:
Created by Dec 1 2006, 11:59 PM EST for: no reason given
View all updates.
|
|
GetCSVCollection
|
Dec 1 2006, 11:57 PM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 281)
View all updates.
|
|
GetCSVCollection
|
Dec 1 2006, 11:55 PM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 281)
View all updates.
|
|
GetCSVCollection
|
Dec 1 2006, 11:53 PM EST |
|
edit |
|
Change:
There were only format changes (bold, italics, etc.) in this version. See this version for details.
(Word count: 281)
View all updates.
|
|
GetCSVCollection
|
Dec 1 2006, 11:52 PM EST |
|
edit |
312 words added
|
Change:
Dim arrVals() As String ' <-- array of values in one line goes to colVals Dim colRecs As New VBA.Collection ' <-- where all this data ends up Dim colVals As VBA.Collection ' <-- values from one line with field names as keys Dim lngValUBound As
View changes from previous version.
(Word count: 281)
View all updates.
|