PureBytes Links
Trading Reference Links
|
Lonnie,
Here is some old code I hacked out of an old excel macro I
used to automate importing spreadsheets into Access. The versions are not
current so the code may no longer work if you have the latest version of
Access. By inserting similar code you can automate exporting any number of
spreadsheets.
Sub Driver()Dim TradingDatabase As
Access.Application
Set TradingDatabase =
CreateObject("Access.Application")With TradingDatabase
.OpenCurrentDatabase ("C:\My Documents\TheNameOfYourDatabase.MDB")End
WithWith TradingDatabase
.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,
"TheDatabaseTableName", "C:\My Documents\TheWorkbookOrSpreadsheetName.XLS",
TrueEnd WithSet TradingDatabase = NothingEnd Sub
Basically the spreadsheets have to be uniform or it won't work
and you will get an error. The macro runs form Excel and uses automation
to run the process from Access. If your spreadsheets are not uniform
and you want to automate then you've got to use DAO or ADO to slectively export
the fields. If you want to do that and feel up to writing some code I
probably can find some that you could use as a model or recommend a
book.
Best of luck. Oh And also any use of this code is at
your own risk.
James
<BLOCKQUOTE dir=ltr
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
----- Original Message -----
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black">From:
Lonnie Lepp
To: <A title=metastock@xxxxxxxxxxxxx
href="mailto:metastock@xxxxxxxxxxxxx">metastock@xxxxxxxxxxxxx
Sent: Monday, January 22, 2001 9:24
AM
Subject: ISO Access and Excel
Genius
I
want to take reports generated by William O'Neil's Daily Graphs and combine
them into 1 large database.
<SPAN
class=343314116-22012001>
Then
I want to filter out the fundamental criteria of the very best stocks
available.
<FONT
color=#0000ff>
T<SPAN
class=343314116-22012001>he following is a list of field
names
<SPAN
class=343314116-22012001>Symbol; Stock
Name; EPS; RS; Group RS
by Letter ; Group RS by number;
SMR; Acc/Dis; Acc/Dis Last
Week; Price; Price
Change; Vol; Vol% vs.
50maVol; Industry Group: Group Ranking
current; Group Ranking Last
Week; Group Ranking 3 months
ago; 52 week
High; 1 week High; Prior week
High; Prior week high date; IBD
Page; Timeliness; Timeliness last
week; % growth rate;
<SPAN
class=343314116-22012001>
<SPAN
class=343314116-22012001><FONT
face=Arial>My problem is opening in Access the
18 reports (from Daily Graphs) that these fields come from so that I can
combine this data
<SPAN
class=343314116-22012001><FONT
face=Arial><SPAN
class=343314116-22012001>
<SPAN
class=343314116-22012001><FONT
face=Arial>Once I can combine this data on each
stock and its industry group I can the narrow my universe of stocks down to
the ones with acceptable (to Me) values. At that point I want to export
a list of Stock Symbols and the stocks name in a tab format that have exceed
my minimum vales for each noteworthy
field.
<SPAN
class=343314116-22012001><FONT
face=Arial><SPAN
class=343314116-22012001>
<SPAN
class=343314116-22012001><FONT
face=Arial>Then I can use TC2000 to do further
screens and collect the Daily data for export to MetaStock
7.02
<SPAN
class=343314116-22012001><FONT
face=Arial><SPAN
class=343314116-22012001>
<SPAN
class=343314116-22012001><FONT
face=Arial>Daily graphs quickly
exports to Excel each individual
report
<SPAN
class=343314116-22012001>
My
problem is to export the initial Excel tables into Access
<SPAN
class=343314116-22012001>
I
use Office 2000 and NT4Sp6
<SPAN
class=343314116-22012001>
Any
help with this will be appreciated
<SPAN
class=343314116-22012001>
I
will be glad to share the results of my studies with the
group
<SPAN
class=343314116-22012001>
Lonnie Lepptllepp@xxxxxx
<SPAN
class=343314116-22012001>
|