We help IT Professionals succeed at work.
Get Started

VB5 Excel sheet to Access or Jet -Important-

285 Views
Last Modified: 2010-04-07
Ok Experts-

I have a program in VB5 that logs data once a minute to a spreadsheet.

I would like to archive it to Jet once a day

The workbook name is "Today.xls"

The sheetname is format$(now, "mmm dd yyyy")

Row 2 holds the 00:01 readings
Row 62 holds the 01:01 readings and so on to Row 1441

At midnight the last history worksheet is moved in front of worksheets(1) and the sheet I want becomes worksheets(2)

My declares are:
Dim m_App As New Excel.Application
Dim m_WB As Workbook            ''Active Workbook for this excel instance
Dim m_WS As Worksheet           "Active Worksheet
const  WBfileName = App.Path + "\WB\Today.xls"

I always store string data in columns A - J.  If the channel for that column isn't being used I stuff a default string and set the colwidth to 0.

Row 1 is always a heading row for the A-J columns

The row number is always (the minutes passed in the day) + 1

The sheetname is always the date.

I know nothing about Jet or Access.

How can I create and maintain a database that will let me compare strings from any 2 dates in its history?

Can someone provide a starter routine or give me link that gets me on top of it.

-Thanks
Comment
Watch Question
Commented:
This problem has been solved!
Unlock 1 Answer and 5 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE