Picture disappears after exporting to Excel and saving.

Afternoon,
I appologise if this question has been asked before, but I did try search past posts.
I am using CR4E, the latest version.
I have designed a report with a Logo in the Page Header. (JPG). If I export the report as a Excel Report (Page Based), the
Picture is displayed as expected.
I can open and close the Excel Report as many times as I want and the picture remains. BUT as soon as I make a change to the
spreadsheet, and save, the Picture disappears.
I have tried using a BMP file, but still the same, I have tried having the picture in different sections but no luck.
If anyone has any ideas as to how I can keep the picture after saving the Excel version I would be greatly in your debt.
Cheers
Darren

Morning,
I have managed to find a work around, although I am not 100% why it works but it does.
I was unable to find a solution to the problem using the Eclipse version of CR, but I found a version of CR2008 at the office, and
using that, inserted a OLE Object attached to my Logo (JPG) and placed this OLE object on the report. My original Picture of the logo was left in its correct placement.
With this OLE Object, it appears that I am not able to export the XLS file and then manipulate the spreadsheet and save as many times
as I wish and the logo remains.
The only issue I have with the OLE Object, and this is probably down to my lack of knowledge, is that the Object contains
a text reference to the file name "Company_Logo.jpg" and that it. It does not display the picture or anything but the text.
I am then unable to hide this text or change the colour of the font to "hide" it. What I have had to do is make the object as small
as possible and place it in the bottom right corner of the report and hope no one notices it
So as you can see my solution is not the greatest but it is working.
Krishnan, I tried you suggestion of moving it the picture object back and forward did not help, and then your File Export Options
idea is not possible in Eclipse Crystal Reports (not that I could find). What version of CR would you be refering to?
Thanks for the suggestions/help.
Cheers
Darren

Similar Messages

90% of pictures disappeared after new program. Time machine folders mostly empty. Downloaded my Carbonite file. Can I restore directly from this file or do I have to drag and drop 20,000 pix?

90% of pictures disappeared after adding Maverick. My Time Machine folders were in the right order but mostly empty so useless for restore. Repair and rebuild attempts were not effective. Downloaded my Carbonite file which is now sitting on my desktop. Is there any way to use the restore command to rebuild my portfolio or do I have to drag & drop approx 20,000 pictures? Can album groupings and faces be retained?

Do you still have the original library that was present at the time you upgraded to Mavericks? If so apply the two fixes below in order as needed:
Fix #1
1 - launch iPhoto with the Command+Option keys held down and rebuild the library.
2 - run Option #4 to rebuild the database.
Fix #2
Using iPhoto Library Manager to Rebuild Your iPhoto Library
1 - download iPhoto Library Manager and launch.
2 - click on the Add Library button and select the library you want to add in the selection window..
3 - Now that the library is listed in the left hand pane of iPLM, click on your library and go to the Library ➙ Rebuild Library menu option.
4 - In the next window name the new library and select the location you want it to be placed.
5 - Click on the Create button.
Note: This creates a new library based on the LIbraryData.xml file in the library and will recover Events, Albums, keywords, titles and comments but not books, calendars or slideshows. The original library will be left untouched for further attempts at fixing the problem or in case the rebuilt library is not satisfactory.
Happy Holidays

Pictures disappeared after installing Yosemite and new Iphoto. Why

Pictures disappeared after installing Yosemite and new Iphoto. Why ?

I also started having problems with iPhoto after installing Yosemite. Some of the Event collections lost the picture and just has a grey square in its place. When I click on the Event, it shows a white dotted lined square for each picture and if I click on the picture, it shows an exclamation mark.
Check, if you also are having a folder "Old Masters" inside the iPhoto Library package, as described by Muhamad Abdulkadir.
Ctrl-click (or right-click) your iPhoto Library in the Pictures folder , then select "Show Package Contents". If you are seeing a folder "Old Masters", copy this folder out of the library. Look inside - are the original image files of the problematic photos inside?
Are any photos in your "Masters"folder?

Export to Excel and File Upload is not working on ipad/IPhone

Hi
We have a site in ASP.Net 2008 which is running on browsers and devices. There is an option to export to excel and file uploadd, It is working in the browsers but not working in Devices like IPad and Iphone. we are creating xml file when export to excel. We have tried it on IPad1,IPad3 and iphone3.
can you please elaborate the causes of these issues? Pleas support to fix the issues.
Regards,
Manoj

How does your PL/SQL for the saving of uploaded files looks like? Where does this error happen? Does your process have an error message?
Denes Kubicek
http://deneskubicek.blogspot.com/
http://www.opal-consulting.de/training
http://apex.oracle.com/pls/otn/f?p=31517:1
-------------------------------------------------------------------

Drill Down is not working after exporting to excel

Hi,
I have created a drill down report in SSRS . Its working perfect. But when I export it to excel, it is showing only the expanded nodes. But I want the same functionality which gives user to expand or collapse the nodes in Excel as well. Can any one please
help me with this?

Hi sil174sss,
Per my understanding you are experiencing the issue with the excel report which have add the drill down action, after export to excel only the expanded nodes included and the collapsed nodes is not shown, right?
Generally, if we expand the nodes before export to excel then the excel will display the expanded details row and keep collapsed the details row which haven't expand, but we have the toggle "+","-" on the left of the Excel to help
control the expand and collapse, when you click the "+" you can expand the collapsed notes to see the details rows.
I have tested on my local environment with different version of SSRS and can always see the "+","-" as below:
On the Top left corner you can find the "1","2", this help to control the "Collapse All" and "Expand All".
If you can't see the "+","-" in the excel, the issue can be caused by the Excel version you are currently using, and also excel have limit support of this, please provide us the Excel version information and the SSRS version. You
can reference to this similar thread:
lost collapsing columns when export to excel
Please try to export other drill down report to excel and check if they work fine, if they did, the issue can be caused by the drill down action you have added in this report is not correctly, if possible, please try to redesign the report.
Article below about how to add Expand/Collapse Action to an Item for your reference:
http://msdn.microsoft.com/en-us/library/dd220405.aspx
If your problem still exists, please feel free to ask
Regards
Vicky Liu

Custom desktop picture disappears after restart

Ever since I purchased my MacBook Pro my custom desktop picture disappears after a restart. I select a photo either from the internet or my iphoto library and when I reboot the computer it goes back to the original desktop pattern, my photo is gone. Has anybody noticed the same problem on theirs and if so, have you found a solution? Its not a big deal, mostly goes under 'curious why this happens and how can I fix it' category . . .

Try running the combo update.
10.9.4 Combo Update
If that doesn't work, go to Finder and select your user/home folder. With that Finder window as the front window, either select Finder/View/Show View options or go command - J. When the View options opens, check ’Show Library Folder’. That should make your user library folder visible in your user/home folder. Select Preferences/com.apple.desktop.plist. Move the .plist to your desktop.
Restart and test. If it works okay, delete the plist from the desktop.
If the same, return the .plist to where you got it from, overwriting the newer one.
Thanks to leonie for some information contained in this.
You might need to redo the View settings after an update.

After making a photopresentation and saved it as a quicktime mov with music i lost all tittles in the presentation, what have i done wrong?

after making a photopresentation and saved it as a quicktime mov with music i lost all tittles in the presentation, what have i done wrong?

Please, help me I have now 10 copies of my Photoslide show with music but still without the tittles(text) I added to the pictures. I used the original file name to add my text. Who know,s how to solve this problem or o I have to start again.
Thanks for any help.
Paul

Export file disappears after exporting

Export file disappears after exporting
Tried dataexport(calc script), report script,need du=ynamic calc members too..
its urgent now....please help
But I have lots and lots of dynamic calc members...its huge...will take hours together to change...so I planned to make stored for only those members which are required in export file...but now...It seems that default calc is not getting executed... may be that happened because I changed few member properties...
Any thoguths why now dynamic calc is not working?
Thanks a lot for any help..its really urgent now...

Regardless of which limited export process you are using (dataexport calc script, report script, or MaxL/Esscmd export) I can't imagine the export file disappearing if it in fact gets written out at all.
As rinku wrote, if it's a true Esssbase export it's either in the app folder or where ever you wrote it with MaxL/Esscmd.
There are known issues with dynamic calc and dataexport. I've seen this myself and ultimately gave up on exporting the dynamic members. Yes, your changes could cause your exising aggregation scripts to give different results.
How about this:
1) Reduce scope of export process and remove dynamically calculated Accounts/Periods (a guess on my part, but likely right)
2) Export to known location (app folder under Essbase folder or some server-addressable folder). Btw, how are you doing the export? It wasn't clear from your post, but I guess it doesn't really matter.
3) See if that works, and if so, expand until failure. That will tell you what is and isn't going to work.
Regards,
Cameron Lackpour

Export to Excel and Save as Static File

Hello all,
When I export to excel from SharePoint 2013, and save the file, the data remains dynamic in that if I update the list in SharePoint it will update the data in Excel. This is great and I use it in a few places, but I also need to capture a point in time and
save the exported Excel file as static data (i.e. Export to Excel, and Save as the Q3 Report). How can I save the file as static/remove the dynamic link so I just have the data at the time of export?
Thanks!
K.
Personal Blog: http://thebitsthatbyte.com

Hi Kelly,
According to your description, my understanding is that you want to export to excel as a static file.
In SharePoint, when you export list to excel, it works as a one-way sync. It can sync data from SharePoint to Excel. If you don’t want to sync the data from SharePoint, you can copy the data from the exported excel file to a new excel, then save the new
excel file.
Best Regards,
Wendy
Forum Support
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact
[email protected]
Wendy Li
TechNet Community Support

Export to excel and csv

I have table in a jsp and an export button. When user clicks on the export button the data in the table should be exported to either text, csv or excel depending on the option user chhoses. Can anyone help me with this? How to export to excel and csv format.

Hi arthur_branham,
I really liked the way you have replied. Can you pleae share the code with me at [email protected] below is my problem...
I had data in XML.I have displayed the data in jsp. Now i need to provide a link "Export to Excel" in jsp which will invokea servlet prepare the excel report and open up directly through a servlet....
I got some help from...http://www.javaworld.com/javaworld/jw-10-2006/jw-1019-xmlexcel.html?page=1...
This is my code in servlet...
HSSFWorkbook wb = new HSSFWorkbook();
HSSFSheet spreadSheet = wb.createSheet("Users");
spreadSheet.setColumnWidth((short) 0, (short) (256 * 25));
spreadSheet.setColumnWidth((short) 1, (short) (256 * 25));
// Creating Rows
HSSFRow row = spreadSheet.createRow(0);
HSSFCell cell = row.createCell((short) 1);
cell.setCellValue("Year 2005");
cell = row.createCell((short) 2);
cell.setCellValue("Year 2004");
HSSFRow row1 = spreadSheet.createRow(1);
HSSFCellStyle cellStyle = wb.createCellStyle();
cellStyle.setBorderRight(HSSFCellStyle.BORDER_MEDIUM);
cellStyle.setBorderTop(HSSFCellStyle.BORDER_MEDIUM);
cellStyle.setBorderLeft(HSSFCellStyle.BORDER_MEDIUM);
cellStyle.setBorderBottom(HSSFCellStyle.BORDER_MEDIUM);
cell = row1.createCell((short) 0);
cell.setCellValue("Revenue ($)");
cell = row1.createCell((short) 1);
cell.setCellValue("25656");
cell = row1.createCell((short) 2);
cell.setCellValue("15457");
FileOutputStream output = new FileOutputStream(new File("/tmp/Users.xls"));
response.setContentType("application/vnd.ms-excel");
response.setHeader("Content-Disposition", "attachment;filename=Users.xls");
ServletOutputStream out = response.getOutputStream();
wb.write(output);
output.flush();
output.close();
forward = null;
In firefox i get the download dialog box but not able to open in from there,i need to save it and then open. In IE i dont get the dialog box instead the excell open inside the browser......Please help me to open a excel sheet onclick on a link "Export to excel" in jsp......
1)If possible help me with the above code.
2)Or else plz sahre you code with me...
Its urgent....
Thanks in advance...

Attempting to work on a pdf, after exporting to.docx and attempting to download, document has very l

Attempting to work on a pdf, after exporting to.docx and attempting to download, document has very long file name that will not save. I need to work on this document!

Can you type a new name instead?
If not, please post a screen shot of the error you get when trying to save.

How to Export to Excel and Pdf

Hi,
I displayed the data into table using JSP page.
I am creating two buttons as one is Export to Excel and 2nd one is Export to Pdf. If i click Export to Excel button then the table data has to Export to Excel sheet. and same to to Pdf also.
Can you please send me the corresponding code
It's very urgent

Can you please send me the corresponding codereally ???
It's very urgentindeed...
See:
- iText (pdf) => www.lowagie.com/iText/
- POI HSSF (excel) => http://poi.apache.org/hssf/index.html
hope that helps

Why do my images disappear after I animate them and choose the playback button to preview the animations

Why do my images disappear after I animate them and choose the playback button to preview the animations

Sorry, but the information you provide isn't even close to the amount we need to help us help you:
FAQ: What information should I provide when asking a question on this forum?

My iMac drops settings information. Sounds associated with receiving and sending an email disappear after about a week and return following a restart after a shutdown. Also my picture taken, which was taken about a year ago, recently disappeared.

My iMac drops settings information. Sounds associated with receiving and sending an email disppear after about a week and return following a shutdown and a restart. The cycle contunes. Also, the picture of me that was taken when I bought the iMac more than a year ago and appeared at logon recently disappeared and was replaced by a soccer ball. I took a new picture, which appeared for about a week at logon, and it has now been replace by a blank picture.

The standard procedure with these types of isues is a PRAM reset.
Shut down your Mac.
Locate the following keys on the keyboard: Command (⌘), Option, P, and R. You will need to hold these keys down simultaneously in step 4.
Turn on the computer.
Press and hold the Command-Option-P-R keys before the gray screen appears.
Hold the keys down until the computer restarts and you hear the startup sound for the second time.
Release the keys.
Excerpt from http://support.apple.com/kb/ht1379

After Export to Excel File error while opening using xmlwriter in silverlight

Can one help me in fixing following issue after to export to excel had done iam getting following error message
"The file you are trying to open, 'test.xls', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do uou want to open the file now ?"
If i click Yes file opens correctly but it shows above message . Can any one suggest me how to avoid this programatically with the following code.
I tried by changing the file saving as .xls to .xlsx but it doesnt works.
Public Sub Export()
Dim ss As String = "urn:schemas-microsoft-com:office:spreadsheet"
Dim DataType As String
Dim DataValue As Object
'Dim DataView As C1.Silverlight.Data.DataView = m_DataGrid.ItemsSource
'Dim ItemsSource As C1.Silverlight.Data.DataTable = DataView.Table
Dim XmlSettings As XmlWriterSettings
Dim ColumnBinding As Binding
Dim FieldName As String
Dim DataGridColumn As C1.Silverlight.DataGrid.DataGridColumn
Dim ColumnIndex As Integer
Dim J As Integer
Dim DataGridRow As C1.Silverlight.DataGrid.DataGridRow
Dim CommonUtil As New GoldCRM.Core.Common.Util
Dim PropertyInfo As System.Reflection.PropertyInfo
Dim CellFormat As String
Try
If m_DataGrid.Rows.Count = 0 Then Exit Try
XmlSettings = New XmlWriterSettings
XmlSettings.Indent = True
XmlSettings.NewLineOnAttributes = False
Using myXML As XmlWriter = XmlWriter.Create(m_Stream, XmlSettings)
With myXML
.WriteStartDocument()
.WriteProcessingInstruction("mso-application", "progid=" & ControlChars.Quote & "Excel.Sheet" & ControlChars.Quote)
.WriteStartElement("Workbook", ss)
.WriteStartElement("DocumentProperties", "urn:schemas-microsoft-com:office:office")
.WriteElementString("Author", m_DocumentProperties.Author)
.WriteElementString("LastAuthor", String.Format("{0} {1}", Application.Current.Resources("EmpFirstName"), Application.Current.Resources("EmpLastName")))
.WriteElementString("Created", m_DocumentProperties.Created)
.WriteElementString("LastSaved", m_DocumentProperties.LastSaved)
.WriteElementString("Company", Application.Current.Resources("REPORTINGSITENAME"))
.WriteElementString("Version", m_DocumentProperties.Version)
.WriteEndElement() 'Document Properties
.WriteStartElement("ExcelWorkbook", "urn:schemas-microsoft-com:office:excel")
.WriteElementString("WindowHeight", m_WorkbookProperties.WindowHeight)
.WriteElementString("WindowWidth", m_WorkbookProperties.WindowWidth)
.WriteElementString("WindowTopX", m_WorkbookProperties.WindowTopX)
.WriteElementString("WindowTopY", m_WorkbookProperties.WindowTopY)
.WriteElementString("ProtectStructure", m_WorkbookProperties.ProtectStructure)
.WriteElementString("ProtectWindows", m_WorkbookProperties.ProtectWindows)
.WriteEndElement() 'Excel Workbook
.WriteStartElement("Styles")
For I As Integer = 0 To m_Styles.Count - 1
.WriteStartElement("Style")
.WriteAttributeString("ss", "ID", ss, m_Styles(I).ID)
If m_Styles(I).Name <> "" Then
.WriteAttributeString("ss", "Name", ss, m_Styles(I).Name)
End If
'ALIGNMENT LOGIC:
.WriteStartElement("Alignment")
If Not m_Styles(I).Alignment Is Nothing Then
If m_Styles(I).Alignment.Horizontal <> 0 Then
.WriteAttributeString("ss", "Horizontal", ss, m_Styles(I).Alignment.Horizontal.ToString)
End If
If m_Styles(I).Alignment.Vertical <> 0 Then
.WriteAttributeString("ss", "Vertical", ss, m_Styles(I).Alignment.Vertical.ToString)
End If
If m_Styles(I).Alignment.WrapText = True Then
.WriteAttributeString("ss", "WrapText", ss, "1")
End If
End If
.WriteEndElement()
'BORDER LOGIC:
.WriteStartElement("Borders")
.WriteStartElement("Border")
.WriteAttributeString("ss", "Position", ss, "Bottom")
.WriteAttributeString("ss", "LineStyle", ss, "Continuous")
.WriteAttributeString("ss", "Weight", ss, "1")
.WriteEndElement() 'Border
.WriteStartElement("Border")
.WriteAttributeString("ss", "Position", ss, "Left")
.WriteAttributeString("ss", "LineStyle", ss, "Continuous")
.WriteAttributeString("ss", "Weight", ss, "1")
.WriteEndElement() 'Border
.WriteStartElement("Border")
.WriteAttributeString("ss", "Position", ss, "Right")
.WriteAttributeString("ss", "LineStyle", ss, "Continuous")
.WriteAttributeString("ss", "Weight", ss, "1")
.WriteEndElement() 'Border
.WriteStartElement("Border")
.WriteAttributeString("ss", "Position", ss, "Top")
.WriteAttributeString("ss", "LineStyle", ss, "Continuous")
.WriteAttributeString("ss", "Weight", ss, "1")
.WriteEndElement() 'Border
.WriteEndElement() 'Borders
'FONT LOGIC:
.WriteStartElement("Font")
Dim myFont As Excel.Styles.Font = m_Styles(I).Font
.WriteAttributeString("ss", "FontName", ss, myFont.FontName.ToString)
.WriteAttributeString("ss", "Size", ss, myFont.Size)
.WriteAttributeString("ss", "Color", ss, myFont.Color.ToString.Remove(1, 2))
If myFont.Bold = True Then .WriteAttributeString("ss", "Bold", ss, "1")
If myFont.Italic = True Then .WriteAttributeString("ss", "Italic", ss, "1")
If myFont.Underline <> 0 Then .WriteAttributeString("ss", "Underline", ss, myFont.Underline.ToString)
.WriteEndElement()
Dim myInterior As Excel.Styles.Interior = m_Styles(I).Interior
.WriteStartElement("Interior")
.WriteAttributeString("ss", "Color", ss, myInterior.Color.ToString.Remove(1, 2))
.WriteAttributeString("ss", "Pattern", ss, "Solid")
.WriteEndElement()
.WriteStartElement("NumberFormat")
.WriteEndElement()
.WriteStartElement("Protection")
.WriteEndElement()
.WriteEndElement() 'Style
Next I
.WriteStartElement("Style")
.WriteAttributeString("ss", "ID", ss, "DateStyle")
.WriteStartElement("NumberFormat")
.WriteAttributeString("ss", "Format", ss, "General Date")
.WriteEndElement() 'NumberFormat
.WriteEndElement() 'Style
.WriteStartElement("Style")
.WriteAttributeString("ss", "ID", ss, "HeaderStyle")
.WriteStartElement("Font")
.WriteAttributeString("x", "Family", ss, "Swiss")
.WriteAttributeString("ss", "Bold", ss, "1")
.WriteEndElement() 'Font
.WriteEndElement() 'Style
.WriteEndElement() 'Styles
'WORKSHEETS:
.WriteStartElement("Worksheet")
.WriteAttributeString("ss", "Name", ss, "WORKSHEET")
.WriteStartElement("Table")
.WriteAttributeString("ss", "ExpandedColumnCount", ss, m_DataGrid.Columns.Count)
.WriteAttributeString("ss", "ExpandedRowCount", ss, m_DataGrid.Rows.Count + 100) 'Temporary fix: sometimes 1 row is not added.
.WriteAttributeString("ss", "FullColumns", ss, m_DataGrid.Columns.Count)
.WriteAttributeString("ss", "FullRows", ss, m_DataGrid.Rows.Count + 100) 'Temporary fix: sometimes 1 row is not added.
.WriteAttributeString("ss", "DefaultRowHeight", ss, 15)
For Each DataGridColumn In m_DataGrid.Columns
If DataGridColumn.Visibility = Visibility.Visible Then
.WriteStartElement("Column")
If TypeOf DataGridColumn Is C1.Silverlight.DataGrid.DataGridNumericColumn Then
.WriteAttributeString("ss", "AutoFitWidth", ss, 1)
ElseIf TypeOf DataGridColumn Is C1.Silverlight.DataGrid.DataGridDateTimeColumn Then
.WriteAttributeString("ss", "AutoFitWidth", ss, 1)
Else
.WriteAttributeString("ss", "AutoFitWidth", ss, 0)
End If
If DataGridColumn.Width.Value <= 100 Then
.WriteAttributeString("ss", "Width", ss, 100)
Else
.WriteAttributeString("ss", "Width", ss, DataGridColumn.Width.Value)
End If
.WriteEndElement()
End If
Next
J = 0
For Each DataGridRow In m_DataGrid.Rows
J += 1
If TypeOf DataGridRow Is GoldCRM.Controls.Filter.clsFilterRow Then
.WriteStartElement("Row")
.WriteAttributeString("ss", "Index", ss, J)
.WriteAttributeString("ss", "AutoFitHeight", ss, 0)
.WriteAttributeString("ss", "Height", ss, 15)
ColumnIndex = 0
For Each DataGridColumn In m_DataGrid.Columns
If DataGridColumn.Visibility = Visibility.Visible Then
FieldName = String.Empty
If TypeOf DataGridColumn Is DataGridBoundColumn Then
ColumnBinding = TryCast(DataGridColumn, DataGridBoundColumn).Binding
If ColumnBinding.Path IsNot Nothing Then
FieldName = ColumnBinding.Path.Path
End If
ElseIf TypeOf DataGridColumn Is DataGridTemplateColumn Then
If DataGridColumn.FilterMemberPath IsNot Nothing Then
FieldName = DataGridColumn.FilterMemberPath.Trim
End If
End If
If Not FieldName.Equals(String.Empty) Then
ColumnIndex += 1
.WriteStartElement("Cell")
.WriteAttributeString("ss", "Index", ss, ColumnIndex)
.WriteAttributeString("ss", "MergeAcross", ss, 0)
.WriteAttributeString("ss", "StyleID", ss, "HeaderStyle")
.WriteStartElement("Data")
.WriteAttributeString("ss", "Type", ss, "String")
If DataGridColumn.Header IsNot Nothing Then
.WriteValue(DataGridColumn.Header.ToString)
Else
.WriteValue("")
End If
.WriteEndElement() 'Data
.WriteEndElement() 'Cell
End If
End If
Next
.WriteEndElement() 'Row
End If
If Not (TypeOf DataGridRow Is GoldCRM.Controls.Filter.clsFilterRow) Then
.WriteStartElement("Row")
.WriteAttributeString("ss", "Index", ss, J + 1)
.WriteAttributeString("ss", "AutoFitHeight", ss, 0)
.WriteAttributeString("ss", "Height", ss, 15)
ColumnIndex = 0
For Each DataGridColumn In m_DataGrid.Columns
If DataGridColumn.Visibility = Visibility.Visible Then
FieldName = String.Empty
If TypeOf DataGridColumn Is DataGridBoundColumn Then
ColumnBinding = TryCast(DataGridColumn, DataGridBoundColumn).Binding
If ColumnBinding.Path IsNot Nothing Then
FieldName = ColumnBinding.Path.Path
End If
ElseIf TypeOf DataGridColumn Is DataGridTemplateColumn Then
If DataGridColumn.FilterMemberPath IsNot Nothing Then
FieldName = DataGridColumn.FilterMemberPath.Trim
End If
End If
If Not FieldName.Equals(String.Empty) Then
ColumnIndex += 1
Dim DataCellValue As Object = Nothing
If Not (TypeOf DataGridRow Is GoldCRM.Controls.Filter.clsFilterRow) Then
PropertyInfo = CommonUtil.GetProperty(DataGridRow.DataItem, FieldName)
If PropertyInfo IsNot Nothing Then
DataCellValue = PropertyInfo.GetValue(DataGridRow.DataItem, Nothing)
End If
End If
CellFormat = String.Empty
If DataCellValue IsNot Nothing Then
Select Case DataCellValue.GetType.Name.ToUpper
Case "BitmapImage".ToUpper
DataValue = "Image"
DataType = "String"
Case "Hyperlink".ToUpper
DataType = "String"
DataValue = "Hyperlink"
Case "Decimal".ToUpper
DataType = "Number"
DataValue = DataCellValue
Case "DateTime".ToUpper
If CType(DataCellValue, Date).Year > 1900 Then
DataType = "DateTime"
DataValue = DataCellValue
CellFormat = "DateStyle"
Else
DataType = "String"
DataValue = DataCellValue
End If
Case Else
DataType = "String"
DataValue = DataCellValue
End Select
Else
DataType = "String"
DataValue = String.Empty
End If
.WriteStartElement("Cell")
.WriteAttributeString("ss", "Index", ss, ColumnIndex)
.WriteAttributeString("ss", "MergeAcross", ss, 0)
If Not CellFormat.Equals(String.Empty) Then
.WriteAttributeString("ss", "StyleID", ss, CellFormat)
End If
.WriteStartElement("Data")
.WriteAttributeString("ss", "Type", ss, DataType)
.WriteValue(DataValue)
.WriteEndElement() 'Data
.WriteEndElement() 'Cell
End If
End If
Next
.WriteEndElement() 'Row
End If
Next
.WriteEndElement() 'Table
.WriteEndElement() 'Worksheet
.WriteEndElement() 'Workbook
.WriteEndDocument()
.Close()
End With
End Using
Catch ex As Exception
Throw New Exception(ex.Message, ex)
Finally
If m_Stream IsNot Nothing Then
m_Stream.Close()
m_Stream.Dispose()
End If
m_Stream = Nothing
m_DataGrid.IsLoading = False
DataValue = Nothing
'DataView = Nothing
'ItemsSource = Nothing
XmlSettings = Nothing
ColumnBinding = Nothing
DataGridColumn = Nothing
End Try
End Sub
Krishna

Hi,
i have the same issue now where i need to populate the xport file name as report name. can you send me your solution please.

Picture disappears after exporting to Excel and saving.

Similar Messages

Maybe you are looking for