I need a consultant - I will pay!

[Guest]

I give up! I have an Access application that requires a Gantt chart. I
would like a module coded that will read an existing activities table and
create an excell spreadsheet and format it into a gantt chart. If you have
"cracked" this nut before, please contact me and I will send you a more
difinitive task list so we can begin working on a price. We can arrange
payment through Paypal. The tables are defined and most of the module. I can
create a basic query, but this is driving me crazy. Contact me and we can
get started. Thanks for your time.

Daniel A. Bair
EBTek, LLC
Phone 206-774-8474 Fax 206-774-9858
(e-mail address removed)

 

[Guest]

Have you tried maninpulating Excel using OLE automation?

If you know how to create the chart in Excel, you can get Access to open
Excel and follow the same steps using code.....

Regards,
Steve.

 

[Guest]

I am not a consultant by the way!!!!

To get you started here are my functions I use to open the link to excel, I
will give you a quick sample to show you how it works in another post....



'#####################################################
' Functions below this Line are used for Excel Automation.

Public Function Open_Excel_Link(Optional blnVisible As Boolean)

' Function to Open Excel Link
Set xlapp = CreateObject("Excel.Application")

If blnVisible = True Then
xlapp.Visible = True
End If

End Function

Public Function Open_Excel_File(xlfname As String)

' Function to Open the specified Excel spreadsheet.
Set xlbook = xlapp.workbooks.Open(xlfname)
xlapp.Parent.Windows(1).Visible = True

End Function



Public Function Close_Excel_link()

' Closes an Open Excel File.
With xlapp
.Quit
End With

Set xlbook = Nothing
Set xlapp = Nothing

End Function

 

[Guest]

Part 2: Using the functions.

Basically, you run the Open link and Open file functions, populate the
worksheet then save and close the link:

I missed a piece of code from the last post where the Global variables are
'dimmed'

Global xlapp As Object
Global xlbook As Object


I have not tested this code, it is for illustration purposes only:



' Open Excel for automation.
Open_Excel_Link (True)

' Open an Excel Worksheet
Call Open_Excel_File("**xls template name**")

' Populate some cells on the worksheet

With xlapp

.cells(1, 1) = "This text will appear in the cell at Row 1, Column 1
(A1)"
.cells(6, 5) = "This text will appear in the cell at Row 6, Column 5
(E6)"

' Save the Worksheet
.ActiveWorkBook.SaveAs "**Spreadsheet Path/Name**"

End With

' Close Excel.
Close_Excel_File()

 

[Keith Wilby]

I give up! I have an Access application that requires a Gantt chart. I
would like a module coded that will read an existing activities table and
create an excell spreadsheet and format it into a gantt chart. If you
have
"cracked" this nut before, please contact me and I will send you a more
difinitive task list so we can begin working on a price. We can arrange
payment through Paypal. The tables are defined and most of the module. I
can
create a basic query, but this is driving me crazy. Contact me and we can
get started. Thanks for your time.

You should be able to get data into Excel easily enough but I don't know
about having Excel produce a Gantt chart. Is there any particular reason
for choosing Excel over, say, Project?

Keith.
www.keithwilby.com