We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Solved
Duplicate export to Excel
Posted on 2011-03-10
Hello all,
This topic is to follow the first post:
http://www.experts-exchang
In my MSHFlexgrid1, all row in green are duplicates.
I need to be able to click on a button and it will export to excel only the duplicate ones in green with the grid column names.
His this possible?
How can i do this?
Thanks again for your help
This topic is to follow the first post:
http://www.experts-exchang
In my MSHFlexgrid1, all row in green are duplicates.
I need to be able to click on a button and it will export to excel only the duplicate ones in green with the grid column names.
His this possible?
How can i do this?
Thanks again for your help
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
2
5 Comments
Sure it is possible....
Remember from the Previous...
You have the Duplicates in the Last Column of you FlexGrid - marked with a value of 1...
Just go through your Grid and export the ones where it is marked..
Remember from the Previous...
You have the Duplicates in the Last Column of you FlexGrid - marked with a value of 1...
Just go through your Grid and export the ones where it is marked..
just place a button on your form...and run this...
set the filename as you wish...
set the filename as you wish...
Private Sub cmdOUT_Click()
Dim oXL As Object
Dim oBK As Object
Dim oSH As Object
Set oXL = CreateObject("Excel.Application")
Set oBK = oXL.Workbooks.Add
Set oSH = oBK.Worksheets(1)
With MSHFlexGrid1
For r = 0 To .Rows - 1
.Row = r
If r = 0 Then
' OUTPUT YOUR HEADERS
For j = 0 To .Cols - 2
.Col = j
oSH.Cells(1, j + 1).Value = .Text
Next
iROW = iROW + 1
Else
.Col = .Cols - 1
If .Text = 1 Then
For j = 0 To .Cols - 2
.Col = j
oSH.Cells(iROW, j + 1).Value = .Text
Next
iROW = iROW + 1
End If
End If
Next r
End With
oBK.SaveAs ("C:\Documents and Settings\all users\Desktop\Output.xls")
oXL.Quit
End Sub
Active 2 days ago
Hello Brook1966.
OK i have put this code but i have an execution error 1004, error on the application or object:
Full code:
OK i have put this code but i have an execution error 1004, error on the application or object:
oSH.Cells(irow, j + 1).Value = .Text
Full code:
Dim oXL As Object
Dim r As Long
Dim j As Long
Dim irow As Long
Dim oBK As Object
Dim oSH As Object
Set oXL = CreateObject("Excel.Application")
Set oBK = oXL.Workbooks.Add
Set oSH = oBK.Worksheets(1)
With MSHFlexGrid1
For r = 1 To .Rows - 1
.Row = r
If r = 0 Then
' OUTPUT YOUR HEADERS
For j = 0 To .Cols - 2
.Col = j
oSH.Cells(1, j + 1).Value = .Text
Next
irow = irow + 1
Else
.Col = .Cols - 1
If .Text = 1 Then
For j = 0 To .Cols - 2
.Col = j
oSH.Cells(irow, j + 1).Value = .Text
Next
irow = irow + 1
End If
End If
Next r
End With
oBK.SaveAs ("C:\Documents and Settings\all users\Desktop\Output.xls")
oXL.Quit
In this code you have...
Change the code on line 11...
FROM
For r = 1 To .Rows - 1
TO
For r = 0 To .Rows - 1
Change the code on line 11...
FROM
For r = 1 To .Rows - 1
TO
For r = 0 To .Rows - 1
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
I’ve seen a number of people looking for examples of how to access web services from VB6. I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.
There is also a companion Debug Toolbar that looks like the followin…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses
Course of the Month9 days, 19 hours left to enroll
722 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.