|
You need to create a new Workbook, add some Worksheets and fill in their content, then save the new Workbook. Something like the following (Yes, I know it's C# but the principle is the same):
Excel.Workbook excelWorkBook = excelApp.Workbooks.Add(Type.Missing);
Excel.Worksheet excelWorkSheet = excelWorkBook.Sheets.Add(Type.Missing);
excelWorkSheet.Name = "Sheet1";
int column = 1;
foreach (DataGridViewColumn dgc in dgvVolunteers.Columns)
{
excelWorkSheet.Cells[1, column] = dgc.HeaderCell.Value;
++column;
}
column--;
int row = 2;
foreach (DataGridViewRow dgr in dgvVolunteers.Rows)
{
for (column = 0; column < dgr.Cells.Count; ++column)
{
excelWorkSheet.Cells[row, column + 1] = dgr.Cells[column].Value;
}
row++;
}
excelWorkBook.SaveAs("MyFileName.xlsx");
excelWorkBook.Close();
|
|
|
|
|
Thanks richard.
I will try it out.
Thanks
Manju
|
|
|
|
|
In FoxPro you can use the ampersand character to indicate macro substitution. For example:
TableName = "Companies"
FieldName = "Location"
Use &TableName index &FieldName
FoxPro would see the '&' and substitute "Companies" in place of &TableName and "Location" in place of &FieldName.
Is there a way to do something similar in VB.NET?
|
|
|
|
|
Nope. You can execute your query by giving it a string. You can manipulate this command-string to your hearts content.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
|
|
You're welcome
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I agree with Eddy Vluggen that there's no FoxPro macro substitution in vb.net, but depending on data provider you can use:
1) sql variables
2) CommandType to define:
- StoredProcedure - the name of a stored procedure,
- TableDirect - the name of a table,
- Text - any SQL command (text - Default).
and
3) Command.Parameters
For example:
Dim sConn As String = "properconnectionstring"
Dim oRdr As OleDbDataReader
Dim dt As DataTable = New DataTable()
Dim empIdToFind As Integer = 111
Using oConn As OleDbConnection = New OleDbConnection(sConn)
oConn.Open()
Using oComm AS OleDbCommand = New OleDbCommand()
oComm.Connection = oConn
oComm.CommandType = CommandType.Text
oComm.CommandText = "SELECT * FROM MyUsers WHERE EmpId=@empid;"
oComm.Parameters.AddWithValue("@empid", empIdToFind)
oComm.ExecuteNonQuery()
oRdr = oComm.ExecuteReader()
dt.Load(oRdr)
End Using
oConn.Close()
End Using
|
|
|
|
|
thanks Maciej, extraordinary explanation.
|
|
|
|
|
|
I want to calculate sum of Net_Amount based on TC_Group='food' using cheque_number as base criteria using VB code
Actual Sheet
CHEQUE_NUMBER TC_GROUP NET_AMOUNT
A001477920190111084600 FOOD 1500
A001477920190111084600 FOOD 1500
A001477920190111084600 TAX 141.75
A001477920190111084600 TAX 141.75
A001477920190111084600 TIPS 75
A001478120190111103600 FOOD 1500
A001478120190111103600 TAX 141.75
A001478120190111103600 TAX 141.75
A001478120190111103600 TIPS 75
Desired Output
CHEQUE_NUMBER TC_GROUP NET_AMOUNT
A001477920190111084600 FOOD 3000
A001478120190111103600 FOOD 1500
|
|
|
|
|
Where is the data stored?
What have you tried?
Where are you stuck?
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Data is stored in excel sheet
|
|
|
|
|
you want to do this inside Excel ... or inside a Visual Studio Application ?
|
|
|
|
|
for current scenario excel only
|
|
|
|
|
You don't need VBA for this.
Inside your sheet you can use the function 'SUMIF' for this ...
|
|
|
|
|
Hi Team,
I have a existing .xlsm file which I was able to open in older excel versions(like 2010) successfully.
But i am unable to open the same .xlsm file in newer office versions 2016.OPening as blank.
Tried changing the settings under Excel->File->Options->Advanced
Under "General"
->Unchecking the "DDE"
Under "Display :"
->Unchecked the "Disable hardware graphics acceleration"
->Turn off add-ins.
Anyone faced this issue ?
Any help will be really appreciated.
Thanks in advance.
Thanks
Manju
|
|
|
|
|
Does this have anything to do with Visual basic programming?
|
|
|
|
|
As most macros are written in VBA I would assume this is the closest forum, we don't have an Office forum thankfully.
Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP
|
|
|
|
|
True, but the question does not mention any macros.
|
|
|
|
|
|
I was asked to sort a list of contacts and said Ok thinking it would be pretty easy using OrderBy in Linq. Then I ran the program and looked at the data and found it more difficult.
The customer decided to make the contact names like this, and I wasn't able to sort the 2nd part
Acme Company - John Doe
Acme Company - Abe Frank
I kept getting the same result of an unordered list using OrderBy(Function(x) x.FCONTACT)
Then Somehow I got side tracked into using Array.Sort, contacts.Sort() and ended up creating this new class with sort helpers that I can't get working.
I think I'm on the right track here, so went down this road to get a better understanding.
I get an intellisense error on Sort, and when I run it I get a Unhandled exception of can't cast to ContactsList in the sortContactAscendingHelper when it reads the single line of code.
contacts.Sort(ContactsList.SortContactAscending())
What have I tried, well this basically. I'm driving down a dark unfamiliar street in the rain on this and can't find much help on the subject.
Public Class ContactsList
Implements IComparable
Public Property FID As String
Public Property FCHECK As Boolean
Public Property FCUSTNO As String
Public Property FCOMPANY As String
Public Property FCONTACT As String
Public Property FEMAIL As String
Public Function CompareTo(obj As Object) As Integer Implements IComparable.CompareTo
Return FCONTACT.CompareTo(obj)
End Function
Public Shared Function SortContactAscending() As IComparer
Return CType(New SortContactAscendingHelper(), IComparer)
End Function
Public Shared Function SortContactDescending() As IComparer
Return CType(New SortContactDescendingHelper(), IComparer)
End Function
Private Class SortContactAscendingHelper : Implements IComparer
Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
Dim c1 As ContactsList = CType(a, ContactsList)
Dim c2 As ContactsList = CType(b, ContactsList)
Return String.Compare(c1.FCONTACT, c2.FEMAIL)
End Function
End Class
Private Class SortContactDescendingHelper : Implements IComparer
Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
Dim c1 As ContactsList = CType(a, ContactsList)
Dim c2 As ContactsList = CType(b, ContactsList)
Return String.Compare(c2.FEMAIL, c1.FCONTACT)
End Function
End Class
End Class
If it ain't broke don't fix it
Discover my world at jkirkerx.com
|
|
|
|
|
Seems to me you have crappy data which is the root of your problem. Solving it with sort constructs is the wrong way to go. Fix the underlying data issue.
I note your contact list has both company and contact fields but your example has the data as 1 value separated by a dash. If you split the data on the dash (assumes the dash is consistent) then sorting becomes a trivial matter.
Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP
|
|
|
|
|
I figured everybody has to deal with crappy data. Maybe I should go to the source of the crappy data and fix that as well.
Good advice however.
If it ain't broke don't fix it
Discover my world at jkirkerx.com
|
|
|
|
|
Hi,
Based on some code I found I changed this code to take a picture from a webcam on a regular basis and stores the image an a folder.
This works! But I want to be able to minimize the form and put it in the system tray. When I do that I only get dark images.
Does anyone have a solution for this? I want the form in the system tray as people do other things on this laptop whilst the code takes pictures of a machine every x seconds.
This is the link to the code (in zip file) on OndeDrive:
Webcam VB .net code OneDrive[^]
Thanks for your input.
Frank
|
|
|
|