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!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
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 1 day 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…
Here are a few simple, working, games that you can use as-is or as the basis for your own games.
Tic-Tac-Toe
This is one of the simplest of all games.
The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month7 days, 9 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
632 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.