Re: Import Access Table into Excel. I appreciate your assistance. Thanks!

On Sep 15, 12:36 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:
I have no idea what the problem is on your machine
Try it on another machine to see if you have the same problem

Use only the files in the zip example to test it the first time

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:90e9da05-6de3-4426-9ebd-e2c5c3191b62@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 12, 2:22 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:



First test the code in the "Code Website.xls"
Always start with a simple example

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:26d37c8e-0164-4b62-a64d-c27801cefd26@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 12, 12:05 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

A space in the field name is no problem
If my Examples are working OK then I have no idea without seeing your macro.

Maybe if you post the macro I see something strange

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:70127edd-8dea-4004-906c-829da2a14ed2@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 12, 11:30 am, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

HiDamil4real

Send me your database private
I will look at it then for you

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:1a22b9fb-17fc-474a-82c7-9fb93017f4bf@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 12, 10:27 am, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

Hi

This is not correct

GetDataFromAccess ThisWorkbook.Path & "C:xxx/xxx/xxx/
OrderDatabase.mdb", "Invested Securities", _

Remove this

ThisWorkbook.Path &

And enter your path like this "C:\Users\Ron\test\OrderDatabase.mdb"

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:f2ce2815-b5a6-4e21-a289-7dfaa420a9d6@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 11, 3:23 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

Did you download my examples ?

I think you only copy the small macro
Test the download first

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in
messagenews:586a9e0f-62ef-4e3b-be30-037b25eb5e09@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 11, 3:08 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

That's interesting

What kind of errors ?
Which Excel version do you use ?

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in
messagenews:6472e13b-1075-4064-9971-65ca9f18ff0a@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

On Sep 11, 2:13 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:

HiDamil4real

Maybe this page will helphttp://www.rondebruin.nl/accessexcel.htm

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in
messagenews:08c7b2e3-0f28-4ee5-9f29-a83d4f699a51@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
I have a table in Access called "Invested Related". All the analysis
is to be done in Excel.

I want to implement a button in EXCEL. Such that when the user clicks
on it, it will go to Access get that Table and then paste it in the
current workbook.

Then when it's pasted in Excel (there are about 10 Categories), I want
the categories to be sorted using the category called "Invested". So
Basically, only show me columns for "Invested."

Is there anyway this can be done in Excel?

I greatly appreciate your efforts, guys!

Thanks!- Hide quoted text -

- Show quoted text -

Thanks! I visited that page, and I tried all of the codes, but none
worked. I received errors on them all.

I appreciate any assistance.

Thanks!- Hide quoted text -

- Show quoted text -

Version 2003.

Error says: "Compile error: Sub or Function not defined"

Then Sub Test1() is highlighted.

I ended the suggested code as follows:

Sub Test1()
'This example retrieves the data for the records in which ShipCountry
= Germany
GetDataFromAccess ThisWorkbook.Path & "/access file name.mdb",
"table name", _
"XX", "=", "XX", _
Sheets("Book4").Range("A8"), _
"*", True, True
End Sub

Code didn't work.

Thanks for your help!- Hide quoted text -

- Show quoted text -

I greatly appreciate your assistance, Ron, but the code is still not
working.

I downloaded and made some changes to your code, but it's still not
working. I get an error message that says: "error copying data." I
don't know why I'm getting this error. It seems your example has the
table name as just one word ("Orders"), while my table has two words
("Invested Related"). Also my access path has three words.

Also you have ur path as: GetDataFromAccess ThisWorkbook.Path & "/
OrderDatabase.mdb", "Orders", _

I changed this code to my path..something like:

GetDataFromAccess ThisWorkbook.Path & "/Invested Related.mdb",
"Invested Securities", _

OR

GetDataFromAccess ThisWorkbook.Path & "C:xxx/xxx/xxx/
OrderDatabase.mdb", "Invested Securities", _

OR

GetDataFromAccess ThisWorkbook.Path & "C:xxx\xxx\xxx
\OrderDatabase.mdb", "Invested Securities", _

Any difference in having \ or /?

It seems like the path code is not working well.

Thanks for your help!- Hide quoted text -

- Show quoted text -

Ron, on my access table the name of my categories are two letter words
like "invested securities" or "Cusip Number"...etc. I see that yours
is merged together like "OrderNumber" "ShipVia" "ShipCountry"...etc..
Does that make a difference? This categories in Access is shown as two
or three-letter words.

My Access File Name is "invested securities.mdb" while yours is
"OrderDatabase.mdb" So everytime I saw the "OrderDatabase.mdb" I
changed it to "invested securities.mdb. I tried merging it, but still
no luck.

My Access Table Name is "invested companies" while yours is "Orders"
So everytime I saw "Order", I changed it to "invested companies" I
tried merging this as well to fit yours, but still no luck.

Now is the space betwee all these two or three-letter words a problem?
Because I entered the path code just as you suggested, but still no
luck.

I apologize for bothering you so often, but I do appreciate your
patience and assistance.

Thanks!- Hide quoted text -

- Show quoted text -

Unfortunately I can't send the database Ron because it's work-related/
sensitive. I wish it was not work-related so i can get this code
working properly for me.

Does it matter that I'm using Excel 2003? I have no idea why this
thing is not working because I simply pasted your code as is, and just
changed access file path, access name, table name, access column
names...etc.

I know I'm probably making a minor error somewhere, but since I'm
clueless about Macro..., what can I say.

Any other way you can assist will be greatly appreciated.

Thanks!- Hide quoted text -

- Show quoted text -

Here goes the codes, I hope it helps. I inserted those modules
manually - (Right-clicked on Project name - Insert - Module).

Thanks a great deal, Ron.

MODULE 1:

Sub TestGetData()
With Sheets("Criteria")
Sheets("Sheet1").Range("A7:H7").Value = .Cells(ActiveCell.Row,
1).Range("A1:H1").Value

GetDataFromAccess "R:\SM\Undecided\Page Me\index me v2.mdb",
"Sample Table", _
"Firm Name", "=", .Cells(ActiveCell.Row,
"B").Value, _
"Status", "=", .Cells(ActiveCell.Row,
"C").Value, _
"Game Firm Contact",
"=", .Cells(ActiveCell.Row, "D").Value, _
"Funds Impacted",
">=", .Cells(ActiveCell.Row, "E").Value, _
"Funds Impacted",
"<=", .Cells(ActiveCell.Row, "F").Value, _
"Start Date", ">=", .Cells(ActiveCell.Row,
"G").Value, _
"Start Date", "<=", .Cells(ActiveCell.Row,
"H").Value, _
Sheets("Sheet1").Range("A10"), "*", True,
True

End With
End Sub

Sub GoToCriteria***()
Sheets("Criteria").Select
End Sub

MODULE 2:

'Look in the Examples module how you can call this macro

Public Sub GetDataFromAccess(MyDatabaseFilePathAndName As String,
MyTable As String, _
MyTableField1 As String, S1 As String,
MyFieldValue1 As String, _
MyTableField2 As String, S2 As String,
MyFieldValue2 As String, _
MyTableField3 As String, S3 As String,
MyFieldValue3 As String, _
MyTableField4 As String, S4 As String,
MyFieldValue4 As String, _
MyTableField5 As String, S5 As String,
MyFieldValue5 As String, _
MyTableField6 As String, S6 As String,
MyFieldValue6 As String, _
MyTableField7 As String, S7 As String,
MyFieldValue7 As String, _
DestSheetRange As Range, WhichFields As
String, _
FieldNames As Boolean, ClearRange As
Boolean)

'Date changed : 18 Feb 2006
'Add the WhichFields option to copy only the fields you want

Dim MyConnection As String
Dim MySQL As String
Dim MyDatabase As Object
Dim col As

...

read more »- Hide quoted text -

- Show quoted text -

Thanks for your continued help Ron. You know the funny thing is when I
just download and use the files/data on the zip it works. But once I
change the path, change the table name, change the access
fields...etc, it doesn't work. That's why I continue to be stressed
out because I know I'm probably doing some silly mistake somewhere.
It's ridiculous!
.

Loading