Visual Basic :: How Can I Transfer Data From Excel And/or Access To A Specific Place In A Worddoc

Problem:transfer Access Data To Excel
Private Sub Command1_Click()

Dim oXLApp As Excel.Application
Dim oXLBook As Excel.Workbook
Dim oXLSheet As Excel.Worksheet

Set oXLApp = New Excel.Application
Set oXLBook = oXLApp.Workbooks.Add
Set oXLSheet = oXLBook.Worksheets(1)

oXLSheet.UsedRange.Clear
oXLSheet.Range("A1").CopyFromRecordset Data1.Recordset
oXLSheet.Paste

oXLApp.Visible = True
Set oXLSheet = Nothing
Set oXLBook = Nothing
Set oXLApp = Nothing
End Sub

when i debug this code, there is no error but at the same time there is no data in excel worksheet. i just want to transfer access datas to excel. i cannot understand why i can't see access datas in excel.

thanks...

Transfer Data From Table In ACCESS TO EXCEL
Hi Everybody

Would really apreciate if you could find the bug in my code for transferring data in a table in access to excel sheet.

Code:
Sub ExportData()

Dim objAccess As Access.Application
Dim strname As String
strname = "mysheet"
Set objAccess = New Access.Application
With objAccess
.OpenCurrentDatabase "H: est.mdb"
.docmd.transferspreadsheet acExport, acspreadsheettypeexcel9, _
strname, "H:Chap15.xls", -1, "import!A1:C4"
.CloseCurrentDatabase
.Quit
End With
Set objAccess = Nothing

End Sub

On executing this code i am getting the error
"Run Time error 3011
The microsoft jet database engine could not find the object".Make sure the object exists and path name is correct."

I have double checked the names and path name and the same code works fin when i import data to access from excel with just the acExport changed to acImport.

Please help me out.Thanks.

kvs

Automatic Transfer Of Data From Excel To Access?
Does anyone know if its possible to transfer data from Excel to Access? Ideally using an automated scripting process? Or import a CSV (Comma Delimited) file?

Thanks!

How To Transfer Data From Access To An Excel File
Hi All,

This is my first post at this forum (friend recommended it).

I have recently started writing code for Access and Excel. My current project involves running a small database to store data and using an Excel spreadsheet to "Report" the data. Previously we used the spreadsheet alone saving multiple copies with each record in it. We want to keep using the spreadsheet as it has some complicated charts that I don't want to try and reproduce in Access.

I searched on the internet and found out how to use the ShellExecute API to open the correct file but now I need to transfer the data from the database to specific cells in the spreadsheet. What is the best way to do this?

Originally I tried to use variables and have the excel file reference the variables on opening but the spreadsheet could not "see"them. So now I wanted to write some code in the Access module that would enter the data into the cells in the Excel spreadsheet, as that way I can update the data in the spreadsheet if the user moves to a different record in the DB.

Thanks heaps

PS also is there a way to close the excel file from Access using VB, ie when the DB is closed?

Not Able To Transfer All Data From Excel To Access Database
Hello,

I am trying to transfer data from a excel spreadsheet to
a access database. The tranfer only works for half of the data
The excel sheet has aprox. 34000 records. When the tranfer has finished only 16000 records were tranfered.
I used DAO 3.51 object Library. When I used DAO 3.6 object Library all 34000 record were tranfered but I am unable to open
the access file.
Any help would be much appreciated.

Thanks

Karl

Transfer Data From Excel To Access Database
Hi ,

Can any one help me.

I want to transfer data from a excel file to a access database using Visual Basic.

Thanks.

Simple ADO Qn Involving VBA (Access->Excel Data Transfer)
ok i'm a total newbie when it comes to manipulating an ADO... i understand how to define, establish and close an ADODB connection between the 2, but I don't quite get how to manipulate and transfer the data.

The various examples I've found on the net are quite confusing, so my question is simple:

- Access DB is testDB1
- Access Table is testTable1
- 2 fields: testField1 and testField2
- Excel WB and Worksheet is testXL1, testWS1

Let's say I want to transfer 3 rows (using a Do Until EOF loop i assume) of the above to an Excel worksheet... no offset involved. Can anyone give me the simplest example of how a method can be constructed?

In Pseudocode i assume it's like this:
- create Recordset
- Write Table data to recordset
- Copy recordset data to Excel

Is this correct? I would really appreciate a simple example, and any advice will be appreciated.

Data Transfer From Text File To Excel && MS Access Table
I just learned how to copy data in a ADO recordset into Excel File using this link by Si_the_geek.
I also learned some Textfile manipulations from the links of dee-u & Pengate.

Thank you everyone.

Now I am wondering how to transfer the data
i) from a textfile (which is having ":" as delimiter) to access table
ii) from a textfile (which is having ":" as delimiter) to Excel File
ii) from a Excel file to an MS Access Table

I tried using the below code. No data was transferred. So its obviously incorrect

Text to Excel Code:
Dim fNo As Integer
Dim sTemp As String
fNo = FreeFile

Open app.Path & "Text1.txt" For Input As fNo
Do While Not EOF(fNo)
Line Input #fNo, sTemp
Loop
oSheet.Range("A1").Value = sTemp
oWorkbook.SaveAs App.Path & "TestBook.xls"
Close fNo

I request the members show me how to do the above or point to some tutorial.
Thankyou.

Using SQL INSERT To Place New Data In An ACCESS DATABASE
Could someone please take a look at my program and help! me

I want to write into the database with either the combo boxes or text boxes.... but how do i do it when the database has relasions??.... and with one button....

this is the button code so far...

Private Sub indskriv_Click()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim titel As String
Dim sprog As String
Dim år As String
Dim selskab As String
Dim skuespiller As String
Dim instr As String

data = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=film.mdb;Persist Security Info=False"

con.Open (data)

Sql = "insert into film (titel) values ('" & titel_ind.Text & "')"

con.Execute Sql

Sql = "SELECT * FROM film WHERE titel = ('" & titel_ind.Text & "')"

rs.Open Sql, con, adOpenDynamic

titel = rs("filmid")

rs.Close

Sql = "insert into selskab (navn) values ('" & selsk_ind.Text & "')"

con.Execute Sql

Sql = "SELECT * FROM selskab WHERE navn = ('" & selsk_ind.Text & "')"

rs.Open Sql, con, adOpenDynamic

selskab = rs("id")

'skuespiller = "insert into skuespiller (fornavn, efternavn) values ('" & rolle_for.Text & "','" & rolle_ef.Text & "')"

'con.Execute skuespiller

'tsu = "insert into Film (Titel, Sprog, Udgivelsesår, selskab) values ('" & titel_ind.Text & "','" & sprog_ind.Text & "','" & år_ind.Text & "','" & selskab & "')"

'con.Execute tsu

titel_ind.Text = ""
sprog_ind.Text = ""
år_ind.Text = ""
selsk_ind.Text = ""

MsgBox "du har tilføjet dit indtastede data"

End Sub

the code is not at all finished.... but i would be glad if someone could help me?.... so DL the "program" and take a peek if you want

it is in danish..... so the button you are looking for is "indskriv".... under "indskriv en film"

Retrieve Data From Microsoft Access And Place It In Listview
Hi, need some help here..

I want to retrieve the information from MicroSoft Access database (MSA) and place it in listview.

The fields i want to retrieve are:
FirstName (text in MSA)
LastName (text in MSA)
Gender (Yes/No in MSA)
Age (number in MSA)

I have created the columns (First Name, Last Name, Gender and age) in VB but was unsure how to retrieve information.

thanks for any help..

Stripping Data From Files To Place Into Access Database.
I have a system which needs to extract certain data from a *.dat file.

My question is this how can I take the information from the fourth row and insert it into the database?
For Example how would i get the digits "90103" (in the 4th row) in to a datafield? I guess that it is done through truncating the data, but i don't know how...

10USA77ASTOZ00024X00000000000000000000000000000000 030505030505030505100327+13000200 881
12A00001000000 00000000000 00000000000 00000000000 00000000000 00000000000 00000000000 00000000000 00000000000 00000000000
14A-0600B+0000C+0900D-0200E-0300F+0100G-0400H+0700I+0800J+0400K-0500L+0500M+0600N+1000O+1200
20 901032140016766300001001519580 1100061893644257 011 1 SATELLITE 00505027010030504095924I000039000000000000288D0A
90USA77ASTOZ00024000003030503150209+0300030505084809+0000000000000288

Is There Anyway To Transfer Data From Ms Access To Pocket Access Using Infrared?
well, attached to a prototype project about the topic, trying out to transfer data from ms access to pocket accesss using infrared technology. is that possible?

Transfer Access - Excel
Hi,

I'm using Access 97.

I'm exporting an Access table to an excel file with the following instruction:

DoCmd.TransferDatabase acLink, "Microsoft Access", sBDExpo, acTable, "pddos", "vin_pddos", False

It generates correctly the excel file.

When I want to import the excel file into an Access table with the instruction:

DoCmd.TransferSpreadsheet acImport, 0, "rpl_pddos", "rpl_pddos.xls", True

it inserts a lot of null records before the real data.

Why is it doing it? How can I make sure it doesn´t happen?

Please, heelp!!

Amota

Transfer Data From VB To Excel
Hello,

I'm trying to transfer some data from a VB form to an existing excel spreadsheet with text boxes, check boxes and option buttons on it. On the VB form, I have 5 text boxes and when I click on a button I want the information on these text boxes to be loaded on the spreadsheet's text boxes and then print the spreadsheet as a report.
I know how to open the excel application from vb then load my existing spreadsheet in memory but then I can't find a way to fill the text boxes of my spreadsheet.
Would somebody have a suggestion on this problem?
Chris.

Transfer Of Data From Vb/vb.net To Excel
Transfer of data from VB to excel
Does anyone has sample codes on how to:
1)transfer the inputs from a user form to an excel database(.xls) whenever a cmdAdd button is clicked on the form
2)The form will reappear again and waits for another sets of input whereby the add button will update again on the excel database...thanks!

Automate Transfer From Access To Excel Using VB
hi guys,

I'm trying to transfer data from access query to excel. I know I can do this with access macro, which is cool, cos the query is run but not opened.

However, I need to the data to be copied to specific cells in excel. Is there a way to use VB to automate this procedure. or is there any other way to automate it?

Dim oExcel As Excel.Application
Dim oWorkbook As Excel.Workbook
Dim oSheet As Excel.Worksheet

Set oExcel = New Excel.Application
oExcel.Visible = True
Set oWorkbook = oExcel.Workbooks.Add

Set oSheet = oWorkbook.Worksheets(1)
oSheet.Range("A4").Value = "12/11/2005 13:00:00"
oSheet.Range("B4").Value = "1"
oSheet.Range("C4").Value = "3"
oSheet.Range("D4").Value = "0.02"

oWorkbook.SaveAs ("C:Documents and Settingsook1.xls")

Set oSheet = Nothing
Set oWorkbook = Nothing
oExcel.Quit
Set oExcel = Nothing

but this doesn't append to the worksheet, which is NOT what I want. Instead, it kinda delete the old data and put in the new one. How should I correct this (i.e. make this code do appending and not delete old data)?? Also, I DO NOT want it to create new excel wrkbook all the time. I just want it to open an existing one and chunk in the data in to the specific cells. pls help

THX HEAPS!!

Transfer ADO Recordsets To Excel Or Access
I already have a VBA macro developed that develops a SQL statement based on variable criteria and queries an Oracle database and returns an ADO recordset. I then paste the data into an open Execl workbook using the CopyFromRecordset command. This works great. However, idealy I would like to export the recordset to a CLOSED workbook that resides on a network server. Is there a way to open two connections (one to the Oracle server and another to the closed Excel workbook) and simply transfer the recordset from one to the other. That would make life wonderful.

Another thing that I would like to be able to do is transfer the same recordset to a new Access table.

Oh, by the way. Criteria for the query changes. They will return different fields, depending on the need.

Thanks for any help.

Transfer Excel File To Access MDB (DAO)
Hey Gurus!

I need help again on how to transfer Excel file to Access MDB (DAO).
I'm having error like this one: The Microsoft Jet database engine couldn't find <TableName>. Make sure the object exist & that you spell the its name and path name correctly!

Here's my code:

Private Sub ReadInputFile()
Dim strTblName As String
Dim strWorkSheet As String
Dim strAccessFile As String
Dim strExcelFile As String

strAccessFile = gVars.sNewDBPathAndName
strExcelFile = gVars.InputFile

strTblName = gVars.strTableName
If strTblName = "" Then
MsgBox ("Please enter a table name!")
Else
Screen.MousePointer = vbHourglass
strWorkSheet = strTblName
Set dbDatabase = OpenDatabase(strExcelFile, True, False, "Excel 8.0")
dbDatabase.Execute "SELECT * into [;database=" & strAccessFile & "]." _
& strTblName & " FROM [" & strWorkSheet & "]"
Screen.MousePointer = vbDefault
MsgBox ("Transfer completed!!")
End If
Exit Sub

Need help ASAP!
I've attached my program.You can download it if you want to!

Thanx!

glenford@secomp-intl.com

Transfer Access Table To Excel
Please help. I have an Access database table that I create an Excel spreadsheet using TransferSpreadsheet. This works fine, except that the hyperlinks are no longer links. In Access I can export to excel and check the SaveFormatted and the created spreadsheet has the links. How can I do this from VB?

thanks,

CSmith

Transfer Data From VB Into MS Access
Hi all!!!
I have a VB application, from which I want to save various data at run time into a MS Access file or into a file which can be converted into MS Access. The data being the x and y position of the click, time between clicks etc. Could somebody tell me how to do this. Thanks in advance for any replies.
-r

Data Transfer From A List Box To Excel
Hi. I was wondering if anyone could help me with something which is probably quite simple but I can't seem to find on MSDN.

I am basically wanting to transfer data from a VB list box to a column in an Excel worksheet.

Thanks for any help you can give.

EXCEL Data Transfer Within A Network
EXCEL is running on both of two PC's within a network. Workbook ("Data") on PC1 and Workbook("DataLog") on PC2 are opened.

With Code in Worksheets ("Data"):

Range(Sheets(1).Cells(8, 4), Sheets(1).Cells(28, 12)).SpecialCells(xlCellTypeVisible).Copy _
Workbooks("DataLog").Sheets(2).Cells(1,1) .... I can easily copy data from one Workbook to another on the s a m e PC.

How do I have to modify the code to manage the same thing, but from one PC to the other?

??

Range(Sheets(1).Cells(8, 4), Sheets(1).Cells(28, 12)).SpecialCells(xlCellTypeVisible).Copy _
\Hnpc2C:ArchivDataLog ......Sheets(2).Cells(1, 1)

??

How To Transfer Data From Excel To Mysql?
Hi all. I got a huge list of data in excel(7000 records) . I want to transfer it to mysql database. Could any one show me how to do it using a fast and easy method.Thanks

Hwo To Transfer My Excel Data Into MySQL DB?
hi..

i have a set of data in a Excel form. how can i transfer the data over to MySQl database?

Transfer Of Data From Other Forms To Excel...
how come i cannot transfer the values from other (previous forms) to excel spreadsheet..but i can transfer the values from current form to it....

appXL.ActiveSheet.Cells(intClickCount, 4).Value = txtDate.Text
where txtDate.Text is the values from the previous forms...
(error: object require)
however the input values from the Current form eg:
appXL.ActiveSheet.Cells(intClickCount, 9).Value = txtUnitCost.Text
where txtUnitCost.Text is the value from the current forms can be display..?

DATA TRANSFER FROM SQL SERVER TO EXCEL
Hi!
I have a table on SQL SERVER, and it has been connected to my vb application already.I display my data on DataGrid to users.Users can see data on datagrid using query.I want to export these data to EXCEL.How can I accomplish this job?

Thanks in advice.

Speed Up Transfer Of Data To Excel
How can I speed up the transfer of data from a text file to Excel?  Here is the code I have so far but it is extremly slow.  Is it because I am adding record by record?  I would use ADO to do this but the text file has well over 150,000 lines.  Any help would be appreciated.  Thanks.

Set objExcel = New Excel.Application
Set objWorkbook = objExcel.Workbooks.Add
ctr = 2
x = 1
Call AddExcelHeader
For i = 0 To UBound(sFileNames)
    Open FilePath & sFileNames(i) For Input As #1
    Do While Not EOF(1)
        Line Input #1, InputData
        ctr = ctr + 1
        If ctr Mod 133 = 0 Then
            lblStatus.Caption = CStr(ctr) & " records exported!"
            DoEvents
        End If
        If ctr Mod 65535 = 0 Then
            ' Formats the Excel spreadsheet data
            objWorkbook.Worksheets(x).Range("A:E").Columns.AutoFit
            objWorkbook.Worksheets(x).Range("A1:E1").Font.FontStyle = "Bold"
            objWorkbook.Worksheets(x).Range("A1:E1").Rows.HorizontalAlignment = xlCenter
            x = x + 1
            ctr = 2
        End If
        Call AddExcelHeader
        objWorkbook.Worksheets(x).Cells(ctr, 1) = Trim$(Mid$(InputData, 1, 10))
        objWorkbook.Worksheets(x).Cells(ctr, 2) = Trim$(Mid$(InputData, 12, 10))
        objWorkbook.Worksheets(x).Cells(ctr, 3) = "'" & Trim$(Mid$(InputData, 23, 5))
        objWorkbook.Worksheets(x).Cells(ctr, 4) = Trim$(Mid$(InputData, 29, 8))
        objWorkbook.Worksheets(x).Cells(ctr, 5) = Trim$(Mid$(InputData, 38, 8))
    Loop
    Close #1
Next

Swi

Outlook To Excel Data Transfer
Hi,

I have developed a number of custom forms in Outlook and found that I can see the data (custom fields) that I need when I save the Outlook Template as a text file. The next trick is to automate the save as text process (using the subject line as the filename) and then open the text file and transpose the list into a table in Excel.

As a newbie to the programming world I was hoping for some help from one of you good folk from VBCity.

Look forward to your reply,

Thanks

Data Transfer Into Pocket Excel
I have a small program in EVB that sends a request to a device, which in turn sends back a simple string of data. I am wondering if anyone can give me ANY advice on how I might be able to import the data into Microsoft Pocket Excel. Once again, ANY suggestions or ideas would be greatly appreciated!

Thank you!

Dynamic Transfer Of Datas From Excel To Access
Friends,

Pls assist me. I am in fix........

I have some datas say around 50000 rows in an Excel Sheet. I want this records to be dynamically transferd at a click of a button in VB from Excel to Access....

Pls help....

Thanks in advance.

Transfer Data From SQL Server To Access
Hi,

I need to transfer data from SQL Server to Access WITHOUT using DTS, from a VB App. I want to use ADO exclusively. Is there an easy way to do this, without loads of looping through recordsets?

This is urgent.

Thanks in advance.

Access To MySQL Data Transfer
I'm doing data transfer between dBase and Access using:

miBase.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=C:d1.mdb"

miBase.Execute "select f1, f2, f3, into Table1 from [dBase IV;database=c:some dir].Table2"

It works fine and I have a very high rate of data transfer (more than 100,000 recs/min) but when I try to do the same between Access and MySQL using:

miBase.Open "Driver={MySQL};Server=some server;
Database=some database;UID=User;PWD=password;"

miBase.Execute "select f1, f2, f3, into Table1 from [;database=c:some dirsome base.mdb].Table2"

Or

miBase.Execute "select f1, f2, f3, into Table1 from [ODBC;DSN=DSN of Access base].Table2"

I got an unidentified error message.
Does someone knows the correct syntax or if it's possible to do so between Access and MySQL. It would be also interesting if someone knows how to use the "REPLACE ... INTO" sentence to transfer data between Access and MySQL

Transfer Data From Access To Oracle
Hi,

Somehow got stuck with the following thing. I'm feeling I'm missing something that is 'on the surface'.

Have Access 97 and Oracle 8.1.7
Need to transfer quite big tables several million records (one shot operation) and do the transfer of several tens thousands on the daily basis.
Linking the Oracle tables into Access is not really an option due to performance issue (very slow).

Suggest that a pass-through query should solve the problem.

This sort of sql works fine:

Code:
INSERT INTO Oracle_Table (Field1)
VALUES ('bla')

the 'bunch' update when a table from Access is involved
naturally generates an error:

Code:
INSERT INTO Oracle_Table (Field1)
SELECT Field2 FROM Access_Table
WHERE Field2='hhh'

Tried ADOX (http://support.microsoft.com/?kbid=304323) but not sure it will work with Access 97.

Any insights, suggestions are appreciated.

Shurik.

Vb To Access Data Transfer Problem
Dear all,

I am trying to develop a lan interface for a scentific equipment which sends out data on lan port at the end of a event base process. Data is sent in the for of ascii strings as multiple chronological fragments. I have written following code which receives data in desired manner up to text box display but when I transfer it to access table in generates two recoedsets storing first string received in first record set & second in second recored set.

I seek guidance to code to save total data in one recordset.
following is my code.

Option Explicit
Private Sub form_load()
Winsock1.Close
Winsock1.LocalPort = 2000
Winsock1.Listen
End Sub

Private Sub winsock1_connectionrequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub winsock1_dataarrival(ByVal bytesTotal As Long)
Dim m_data As String
Winsock1.GetData m_data

Text1 = Text1 & m_data

Dim mydb As Database
Dim myrs As dao.Recordset

Set mydb = OpenDatabase("F:Program FilesCellConnect_ Abbottcellcounter.mdb")
Set myrs = mydb.OpenRecordset("MainData")

myrs.AddNew
myrs![srl_port] = Text1
myrs.Update
myrs.Close
Text1 = ""
End Sub

Transfer Data Between Two Access Db's-Resolved
I'm working on a data transfer program to transfer data between two tables in two seperate access databases. So far, I'm allowing the user to select which two databases, which two fields, and then they can link up which source fields relate to which target fields. Great. So, I'm stuck on how to do the actual transfer. I was hoping to do it in one sql statement so I don't have to either A. Copy/Link the source table into the target db, work from that, then delete (this may actually be the easiest option) or B. Throw all the source data into variables and send them to the target table that way.
I've looked for some sql to do this and came up with the following - which doesn't work since I'm only connecting to one table.

VB Code:
strSql = "INSERT INTO [" & frmMain.targetDB & "]." & frmMain.targetTbl & " ( " & strInsert & " ) SELECT " & strSelect & " FROM [" & frmMain.sourceDB & "].[" & frmMain.sourceTbl & "]" 'open connection to target db cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & frmMain.targetDB & ";Persist Security Info=False" 'run sql to insert records into target db/table rs.Open strSql, cn, adOpenKeyset, adLockOptimistic, adCmdText

So - is there a way to do this in one sql statement, or can someone correct my above code? It produces the error - 'no value given for one or more parameters' - which is because of the connection, I guess.

Any help is appreciated.

Transfer Word Formfield Data To Excel
This sounds as though it would be a simple task. I am referencing a text form field (as a bookmark named ID) in a "protected" word template and would just like to get the value out of the form field and place it in an existing Excel worksheet. I have a command button that will take the desired info from the textfields and place them as an excel record. There is no .value or anything that I can find to work. The other problem is that if I try and use .Text or some other ending, an error appears telling me that it can't get the information from a "protected" document. The template must be protected however so that the employees don't go screwing it all up. The bit of code I'm troubled with is as follows:

With xlWB.Worksheets(1)
Do
If IsEmpty(.Cells(i, 1)) Then
Chkcell = True
'go to desired bookmark

ID = Me.Bookmarks("ID").Range.??????????? (why no .value?)

'ID = Me.FormFields("ID").Range (same problem)

Else: i = i + 1
End If
Loop Until Chkcell = True

End With

Thanks for any help you guys can give me.

Crystal Report 7.0 Data Transfer To Excel
hello
im trying to export crystal report 7.0 data to EXCEL but its not transfering properly in same format that report is showing...data in the column is getting shifted to another column...why its happeing...i tried adding TABs also in the crystal report...i hv vertical lines in the report..
is there any solutions..

*RESOLVED*simple Data Transfer From Excel To VB
Hi,

I am trying to copy one specific cell of data from an excel file into VB. I have found some code previously posted and have tried running it to see how it works. I am receiving the following error message "User Defined Type Not Defined" with regards to "Dim xlApp As Excel.Application", "Dim xlApp As Excel.Workbook" and "Dim xlApp As Excel.Worksheet".

Can someone please help me with this?

Thanks,

burzrk

CODE (previously posted):
------------------------------------------------------------------------

Dim iRow As Integer
Dim iCol As Integer
Dim iLastRow As Integer
Dim iLastCol As Integer
Dim sCellAdd As String

   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet

   ' set reference to Application object
   Set xlApp = CreateObject("Excel.Application")

   ' set reference to Workbook object
   Set xlBook = xlApp.Workbooks.Open("C:FileName.xls")

   ' set the reference to Worksheet object
   Set xlSheet = xlBook.ActiveSheet

With xlSheet
    iLastCol = .Cells.SpecialCells(xlCellTypeLastCell).Column
    iLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
End With

For iRow = 1 To iLastRow
    For iCol = 1 To iLastCol
        Debug.Print xlApp.Cells(iRow, iCol)
    Next iCol

Next iRow

Edited by - burzrk on 7/11/2005 7:33:09 PM

Probelm Transfer Data To Excel Format
I got a problem to download data from SQL to excel, after 3 minutes ago Windows message-Component Request Pending. popup said that-- The acttion cannot be completed because of the other application is busy . choose "Switch to" to activeate the busy ......
Can everyone help me on this problem. my code ample like this

Private Sub CmdSave_Click()
On Error Resume Next
Dim xl As Excel.Application
Dim fc As Integer
Dim m As String
Dim n As Integer
Dim rsv As String * 60
Dim c As Integer
Dim dgc As Long
Dim dgr As Long
Dim txt As String * 60
Dim wb As Workbook

m = MsgBox("Are you sure you want to save the records into excel format?", vbOKCancel, "Save to File")
If m = vbOK Then
fc = rs1.Fields.Count

Set xl = New Excel.Application
Set wb = xl.Workbooks.Add
xl.DisplayAlerts = False
CmdSave.Enabled = False
Cmd_run.Enabled = False
xl.Visible = False
wb.SaveAs ("C:windowsdesktop123.xls"), xlNormal, "", "", False, False
wb.Worksheets("sheet2").Delete
wb.Worksheets("sheet3").Delete

--Fields Name
For i = 1 To fc
txt = rs1(i - 1).Name
xl.Cells(1, i).Value = txt
Next

ProgressBar1.Visible = True

Do While Not rs1.EOF
n = n + 1

c = rs1.AbsolutePosition / rs1.RecordCount * 100 ''
Label5.Caption = c & "%"
Label5.FontSize = 6
ProgressBar1.Value = c
Label6.Caption = "Progressing.......!"
Label6.FontSize = 6
Label6.FontItalic = True
Me.Refresh

If c = 100 Then
Label6.Caption = "Completed!"
End If

For i = 1 To fc
rsv = rs1(i - 1).Value
xl.Cells(n + 1, i).Value = rsv
Next

rs1.MoveNext

Loop

CmdSave.Enabled = True
Cmd_run.Enabled = True
MsgBox "Progress completed!", vbInformation, "Transfer File"

Label6.Caption = ""
Label5.Caption = ""
ProgressBar1.Visible = False
xl.Visible = True

End If

End Sub

MS Access Data Transfer To VB Related Query
I've used some VB code to query an access database and one of the queried
fields is a bitmapped graphic. My question is, how can I now work with this
graphic? (e.g. put it on clipboard/on a form/etc). If I try to, for
example, put it on the clipboard, it says that this object does not support
this property, am I going about it totally the wrong way? Currently, the
records are held in a recordset, and I'm fairly sure it's queried alright at
I can access all the text-based fields.

Thanks For any help

Michael

Transfer Data From Excel To Visual Basic <RESOLVED>
Hi all,

I have tried to transfer large amount of data from VB6 to Excel successfully using Range Method and Resize Method.

Is there anyway to reverse the process efficiently? I have read the technical presentation on msdn.microsoft.com and it seems that they haven't mentioned about this issue.

I have implemented the following code but it failed on my case:

VB Code:
'Connected to Excel by xlw (declared as Excel Workbook), xlws(declared as Object)Dim N1, N2 As IntegerDim Array(1 to 10000, 1 to 100) As SingleFor N1 = 1 to 10000 For N2 = 1 to 100 Array(N1,N2) = xlws.Application.Cells(N1,N2) Next N2Next N1

P.S. size of my typical Excel Worksheet: 10000 rows times 100 column in a sheet

EXCEL VBA - Transfer Data From 1 Multicolumn Listbox To Another On The Same Userform
Please Help!! I have a userform which contains a MULTICOLUMN listbox with data from a worksheet. When the user selects an entry (dbl clicks) I want the entry to be tranferred to the second MULTICOLUMN listbox right below it. I can successfully transfer the appropriate data, but in the second listbox, it adds all the data in the first column. How do I get it so the data appears across the columns (ie. as it is in the first listbox)??? I think the answer is simple but I am not seeing it. An array perhaps?? Here is the code I have presently...

With lboMICHNAME
For i = 0 To lboMICHNAME.ListCount - 1
If lboMICHNAME.Selected(i) = True Then
For x = 0 To lboMICHNAME.ColumnCount - 1
lboMICHsummary.AddItem .List(i, x)
Next x
End If
Next i
End With