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!
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
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.
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
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 Between MS Access And Excel
Hi all!
I wrote small article on the subject, think that may be of use for somebody:
http://www.zmey.1977.ru/Access_To_Excel.htm
I also gladly will discuss it here...
Best regards,
Zmey2
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!
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.
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
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..
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...
*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
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
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.
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
Reflection For HP (on VB 6) - Transfer Specifc Data To An Excel File
Hi
Iam using an application - reflection for HP version 8.0 which runs on VB 6. For those who r not famliiar, the screen contains Fields and their values in a report format. All I want is to transfer a few field values to an existing excel file under specific columns already defined. Also, if possible, pl let me know how I would transfer a value from memory to a different column in the excel sheet (The Value is based on a calculation done on the field values.) There is an option called Print to file, but that takes the entire screen or i have to manually select the Values. Even that does not append to the next row cell. It either overwrites the existing data or appends in the same cell.
Pl help me out
Regards
Deebu
How Can I Transfer Data From Excel And/or Access To A Specific Place In A Worddoc
Hi!
I've built a function for calculating some prices in Excel VBA. I get information from a access database and then I change some numbers and recieve a new price. Then add some other information and finaly save the new information in another table in the database. After this is done i would like the user to be able to click a button and then i want the program to open a word-template and adding the information that just have been saved in the table. If its possible i would like that information to be saved in a specific table in the word document.
How difficult is this?
I would at least be able to transfer the information to word.
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.
"Data Transfer", Excel VB To Word VB && Back.
I hope you can help my plea for information/instruction on "Data Transfer", Excel to Word & back please!
In Excel VB:-
I can Do: ExData1 = ActiveCell.Value
ExData2 = different ActiveCell.Value
In Word VB:-
I can Do: ActiveDocument.FormFields("Text1").Result = WdData1
ActiveDocument.FormFields("Text5").Result = WdData2
I cannot Do:- WdData1 = ExData1
WdData2 = ExData2
Data to be transferred when Excel VB program is run, to open a new Form to a Template.
Hence in Word: Form opens;
FormField ("Text1") autoruns "Sub Data_Inilialise()" on entry;
Could do "wait loop" if required?;
until "WdData1 = ExData1" etc. is performed;
FormFields updated
"Handshake" to allow Excel program to complete (e.g. ExWordHappy = WdWordHappy);
Form then remains open until other FormFields entries are typed in;
and saved via a Macro button.
And because I am new at this:- Very simple vNames where possible, and detailed Comments please!
Help Transfer Listview To Excel
Hi I have a problem that I'm not able to solve, I have a listview with data of 7 decimal position (double) when I have to transfer from listview to Excel it cuts the comma and consider the listview text a string. I have tried with the NumberFormat but it doesn't work. What can I do???
wsXL.Range(wsXL.Cells(3, 2), wsXL.Cells(ListView2.ListItems.count, ListView2.ColumnHeaders.count - 2)).NumberFormat = "###0.00000"
If ListView2.ListItems.count > 0 Then
' fill worksheet
For lRow = 1 To ListView2.ListItems.count
For lCol = 1 To ListView2.ColumnHeaders.count
If lCol = 1 Then
wsXL.Cells(lRow, lCol).Value = ListView2.ListItems(lRow).Text
Else
wsXL.Cells(lRow, lCol).Value = ListView2.ListItems(lRow).ListSubItems(lCol - 1).Text
End If
Next lCol
Next lRow
This is what it shows in excel:
Codice Territorio Territorio AS001 AS001
1996 1997
019084 Agrigento 62.505.384.063.173 9.294.184.179
001006 Alessandria 227.646.609.202.229 1.923.535.974
011042 Ancona 248.526.651.758.278 2.190.416.626
whilst in listview the data are:
019084 Agrigento 625, 05384063173 929,4184179
001006 Alessandria 2276,46609202229 1923,535974
Transfer To Excel Or Text Box???
I have set up a search using my vb application. It displays days into a listbox. I need that data to be transfered into either excel???? or a textbox???? i can not get this to work, can someone throw me some code to work with??? thanks!
Slow Transfer To Excel
Hi there,
I have an application that uses excel object to fill an excel worksheet from VB 6. It works ok but it seems rather slow.
I loop in a collection of arrays and fill every row/column.
Code:
If Not moExcel Is Nothing Then
Set oWorkBook = moExcel.Workbooks.Add
Set oWorkSheet = oWorkBook.Worksheets(1)
iRow = 0
With oWorkSheet
For Each vntArray In pkArrays
iRow = iRow + 1
For iCol = 0 To UBound(vntArray)
.Cells(iRow, iCol + 1).Value = vntArray(iCol)
Next
Next
.Columns.AutoFit
End With
End If
Is there any smarter way of doing this?
Transfer DataGrid To Excel[]
Hi,
I want to transfer Data from MySQL server to a excel file.
i used a datagrid to populate the whole data, now the problem is i can't write the whole data in the excel file...
using a MSHflexgrid prints only 2049 lines of data.
i have to write around 20000 lines of data in Excel Sheet.
_____________________________________________________________
Private Sub Command1_Click()
Call DataGrid_To_Excel(grdDataGrid, 300, 20)
'grdDataGrid.ApproxCount
End Sub
____________________________________________________________
Public Sub DataGrid_To_Excel(TheDataGrid As DataGrid, TheRows As Integer, TheCols As Integer, Optional GridStyle As Integer = 1, Optional WorkSheetName As String)
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter
If Not IsObject(objXL) Then
MsgBox "You need Microsoft Excel to use this function", _
vbExclamation, "Print to Excel"
Exit Sub
End If
'On Error Resume Next is necessary because
'someone may pass more rows
'or columns than the datagrid has
'you can instead check for this,
'or rewrite the function so that
'it exports all non-fixed cells
'to Excel
On Error Resume Next
' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
' name the worksheet
With wsXL
If Not WorkSheetName = "" Then
.Name = WorkSheetName
End If
End With
' fill worksheet
For intRow = 0 To TheRows
TheDatagrid.Row = intRow
For intCol = 0 To TheCols
TheDatagrid.Col = intCol
wsXL.Cells(intRow, intCol).Value = TheDatagrid.Text
Next
Next
' format the look
For intCol = 1 To TheCols
wsXL.Columns(intCol).AutoFit
'wsXL.Columns(intCol).AutoFormat (1)
wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
1) & TheRows).AutoFormat GridStyle
Next
End Sub
_____________________________________________________________
using this code i can write 300 lines of data in excel. and the data gets repeated after row 208.
Any solution ?
Datagrid Transfer To Excel VB6 Bug?????
Hi all,
I've got a program that transfers information from my datagrid to excel. It works PERFECTLY for a database of less than 40 rows. BUT more than 40 gives a 6148 runtime error!?!?!?! I'm been looking at this thing all day! HELP!
Where there's an arrow it shows what VB deems as my error.
'get total number of fields
Dim total_columns As Integer 'counter for total number of columns
Dim total_rows As Integer 'counter for total number of rows
'get total number of columns
total_columns = MY_AdoRecSet.Fields.Count
'get total number of rows
total_rows = MY_AdoRecSet.RecordCount
'Go through the X and Y axes to enter the datagrid information into the
'excel worksheet. The loop goes through the column then the next row.
Dim current_row As Integer
Dim current_column As Integer
For current_row = 1 To total_rows Step 1
----> MY_grid.Row = current_row - 1 'select the row in the grid
For current_column = 1 To total_columns Step 1
MY_grid.Col = current_column - 1 'select the column in the grid
If action = PRINTER Then
MY_xl_worksheet.Cells(current_row + Yoffset + 1, _
current_column + Xoffset).Value = MY_grid.Text
Else
MY_xl_worksheet.Cells(current_row + Yoffset, _
current_column + Xoffset).Value = MY_grid.Text
End If
Next
Next
If action = PRINTER Then
Call print_setup(MY_xl_worksheet, MY_combobox)
'Print out the Information
MY_xl_worksheet.PrintOut
End If
If action = FILE Then
If IsMissing(path) Then
MsgBox "path name not defined"
End
Else
Call saveXLS(MY_xl_worksheet, path)
End If
End If
printgrid = 0
Exit Function
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
Data Transfer Through Data Modem
Hello, Just long time out from this forum. Currently, I'm writing a file transfer module by using the normal modem, I did established the connection between two terminal & only can send out data at one terminal only. But after 30 over second the line will automatically disconnect.
Did anybody have any idea of the cause and any better way to do this?
Transfer Of Data
Hi there,
I got a bit of a problem.
I need to transfer newly imputted data from one excel-sheet to an existing sheet.
I tried this ;
Private Sub CommandButton1_Click()
Dim Addr, Space, CCC, SCC, CBN, SC, CurrRow, LastRow
Sheets("Blad2").Select
Space = Chr(32)
Close #1
Open "G:sharedExceltransfer ransferRBtest.xls" For Output As #1
LastRow = Application.CountA(ActiveSheet.Range("A:A"))
For CurrRow = 1 To LastRow
Addr = Cells(CurrRow, 1)
CCC = Cells(CurrRow, 2)
SCC = Space & Space & Space & Cells(CurrRow, 3)
CBN = Cells(CurrRow, 4)
SC = Cells(CurrRow, 5)
Print #1, Addr; Space; CCC; Space; SCC; Space; CBN; Space; SC
Next
Close #1
End Sub
But it just overwrites the existing data. What I want it to do is go to the next empty line and paste the selected range under the allready existing data.
Can anyone tell me if this is somehow possible ?
I tried putting a
Selection.End(xlDown).Offset(1, 0).Select
before the print allready, but that doesn't seem to do it.
Please help,
Thank you!
Grtz Sfek
Transfer Data Help
hey
this is my problem.... I have 2 dbs one has the structure i need the other the data......i can import the structure into a new db but how do i import/export the data i need.......(both dbs have a large amount of tables but no relation etc.. it's a back end.) the db with the data has a field size that’s bigger then the front end but the structure db is ok ... these dbs have so many table and fields it kind of hard to tell what field is the problem
Data Transfer
can any one supply the code that will let me find two words in a list then copy the data between those word and transpose it on to another sheet. As i have a listing of addresses that i need to sort but they are entered on after another which isn't helpful
Transfer Data From VB To VB??
My first post!!
I have a VB app that I made for some folks out in the field. They will fill out some information and then that information will need to be shared with my internal office. We will be looking at the same forms, but with some additional fields. Here is the question...how can I do this? Web based isn't an option and I don't know XML. How can I get the information from the people outside of the office doing data entry on the VB app into our office so we can view it using the same VB app plus some fields?
Can you email a form's contents from outside of an office, and then have that data appear in the form inside of the office?? I don't want to put it into an Access DB and then have them email the DB if possible. Suggestions pleeeease? Thanks!
SQL Data Transfer
hello !
i'll try to explain this clearly ....
i would like to move a field from one table to another, with all its data, while keeping the data in the correct row (my 2 tables have a common field which is the primary key in one of them) i have created the fields in both tables.
i have no idea how to do this. i'm using microsoft sql server 7.0, but the export function doesn't seem to want to let me do this. it tries to insert new rows, which is not what i need.
if you have an idea, please let me know
Huby.
|
TRACKER
