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

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

If you not have to enter a password then it must work

Try to clean up the database so it only have a few records with no important information.
Send it to me private and I test it for you



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Damil4real" <Damil4real@xxxxxxxxx> wrote in message news:f3418fe5-fabd-4f58-9b8b-2c265c98c934@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
On Sep 15, 1:19 pm, "Ron de Bruin" <rondebr...@xxxxxxxxxxxx> wrote:
Is the database protected ????

--

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

"Damil4real" <Damil4r...@xxxxxxxxx> wrote in messagenews:6260d8cc-feb0-4063-a9ca-cda2e0596249@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

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

...

read more »- Hide quoted text -

- Show quoted text -

If you are asking whether I enter an password when accessing the
Access Table, the answer is no. But then again maybe I'm too dumb to
know. What happens if it's in fact protected, but I can't see it.

.

Quantcast