Excel sheet tabs white on white after 10.4.7
Hello,
I updated on 10.4.7 today.
Now when I open a Excel (X, 10.1.6) file, the registry tabs of the sheets (tables and diagrams) contain white text on white background. Yesterday I still worked on the same file and everything was OK then.
It is a bit annoying - does anyone have a clue how to get black text again?
Thank you.
Powerbook G4, 1.25GHz Mac OS X (10.4.3)
> The current version of Excel is 11.2.3.
I just had a look (having updated to OS 10.4.7) and
it seems OK.
Do you have a particular reason for not updating
Office - which is free?
Excel 11.x.x is a part of Office 2004
Excel 10.x.x is a part of Office X
The Upgrade Office X --> Office 2004 is a 'major upgrade', which has to be paid for. It's not free...
However, I found another Excel security update (to 10.1.7) and after installing this one I had black text again.
Don't ask me if it stays black though
Similar Messages
-
Hi Friends,
Instead of display Sheet 1 in the Excel sheet tab(Bex), is there a way we can display Query Name in the excel sheet tab? please let me know.
Thanks,
KKHi Kumar
Can you please share how it was solved ?
Ashish -
In excel sheet tab name is not coming-urgent
hi all,
one small rewquirement. if u run this test program it opens a excel sheet which contains signle tab. here tab name is not coming. i dont no hot to display tabname here.anybody can make the changes and send me the code.
i am sending my code below.
thanks,
maheedhar.t
REPORT ytestvij MESSAGE-ID zv.
TABLES sscrfields.
TYPE-POOLS: icon.
TYPES : BEGIN OF zfnames_ds,
reptext TYPE reptext,
END OF zfnames_ds.
TYPE-POOLS ole2 .
DATA: wa_fntxt TYPE smp_dyntxt.
DATA : wa_t75_booking TYPE zvt75_booking_h,
t_t75_booking TYPE STANDARD TABLE OF zvt75_booking_h.
DATA : wa_fields TYPE dfies,
t_fields TYPE STANDARD TABLE OF dfies.
DATA : wa_fnames TYPE zfnames_ds,
t_fnames TYPE STANDARD TABLE OF zfnames_ds.
handles for OLE objects
DATA: h_excel TYPE ole2_object, " Excel object
h_mapl TYPE ole2_object, " list of workbooks
h_map TYPE ole2_object, " workbook
h_zl TYPE ole2_object, " cell
h_f TYPE ole2_object. " font
DATA h TYPE i.
DATA : lin TYPE i.
data: excel type ole2_object,
application type ole2_object,
books type ole2_object,
book type ole2_object,
sheet type ole2_object,
cell type ole2_object,
column type ole2_object.
PARAMETERS : p_input TYPE localfile.
Add button to application toolbar
SELECTION-SCREEN FUNCTION KEY 1. "Will have a function code of 'FC01'
INITIALIZATION.
Add displayed text string to buttons
wa_fntxt-icon_id = icon_xls.
wa_fntxt-icon_text = 'Input File template'.
wa_fntxt-quickinfo = 'T75 Header Data'.
sscrfields-functxt_01 = wa_fntxt.
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'FC01'.
do nothing
PERFORM open_excel.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_input.
PERFORM get_filename USING p_input.
START-OF-SELECTION.
*set pf-status 'ONE'.
END-OF-SELECTION.
WRITE : lin.
*& Form GET_FILENAME
text
--> p1 text
<-- p2 text
FORM get_filename USING p_file TYPE rlgrap-filename . "localfile.
DATA : w_rc TYPE i.
DATA : wa_file_table TYPE file_table ,
t_file_table TYPE STANDARD TABLE OF file_table.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
WINDOW_TITLE =
DEFAULT_EXTENSION =
DEFAULT_FILENAME =
FILE_FILTER =
INITIAL_DIRECTORY =
MULTISELECTION =
CHANGING
file_table = t_file_table[]
rc = w_rc
USER_ACTION =
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 3
OTHERS = 4
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT t_file_table INTO wa_file_table.
p_file = wa_file_table-filename.
ENDLOOP.
ENDFORM. " GET_FILENAME
*& Form open_excel
text
--> p1 text
<-- p2 text
FORM open_excel.
SELECT * FROM ZVT75_BOOKING_H
INTO TABLE t_t75_booking
UP TO 10 ROWS.
start Excel
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
PERFORM err_hdl.
SET PROPERTY OF h_excel 'Visible' = 1.
PERFORM err_hdl.
get list of workbooks, initially empty
CALL METHOD OF h_excel 'Workbooks' = h_mapl.
PERFORM err_hdl.
add a new workbook
CALL METHOD OF h_mapl 'Add' = h_map.
PERFORM err_hdl.
output column headings to active Excel sheet
PERFORM fill_cell USING 1 1 1 'Financial year'.
PERFORM fill_cell USING 1 2 1 'Financial quarter'.
PERFORM fill_cell USING 1 3 1 'Customer number'.
PERFORM fill_cell USING 1 4 1 'Booking Year'.
PERFORM fill_cell USING 1 5 1 'Financial quarter'.
PERFORM fill_cell USING 1 6 1 'Contract type'.
PERFORM fill_cell USING 1 7 1 'Sub Contract type'.
PERFORM fill_cell USING 1 8 1 'Customer purchase order number'.
PERFORM fill_cell USING 1 9 1 'Booking Amount'.
PERFORM fill_cell USING 1 10 1 'Currency Key'.
LOOP AT t_t75_booking into wa_t75_booking.
copy items to active EXCEL sheet
H = SY-TABIX + 1.
PERFORM FILL_CELL USING H 1 0 wa_t75_booking-BOOKYEAR.
PERFORM FILL_CELL USING H 2 0 wa_t75_booking-BOOKQTR.
PERFORM FILL_CELL USING H 3 0 wa_t75_booking-.
PERFORM FILL_CELL USING H 4 0 wa_t75_booking-BOOKYEAR.
PERFORM FILL_CELL USING H 5 0 wa_t75_booking-BOOKQTR.
ENDLOOP.
disconnect from Excel
FREE OBJECT h_excel.
PERFORM err_hdl.
ENDFORM. " open_excel
*& Form ERR_HDL
outputs OLE error if any *
--> p1 text
<-- p2 text
FORM err_hdl.
data test type sy-subrc.
test = sy-subrc.
IF test <> 0.
Message e000(ZV) with 'Error in OLE-Automation:'.
STOP.
ENDIF.
ENDFORM. " ERR_HDL
FORM FILL_CELL *
sets cell at coordinates i,j to value val boldtype bold *
FORM fill_cell USING i j bold val.
CALL METHOD OF h_excel 'Cells' = h_zl EXPORTING #1 = i #2 = j.
set property of sheet 'Name' = 'T75'.
PERFORM err_hdl.
SET PROPERTY OF h_zl 'Value' = val .
PERFORM err_hdl.
GET PROPERTY OF h_zl 'Font' = h_f.
PERFORM err_hdl.
SET PROPERTY OF h_f 'Bold' = bold .
PERFORM err_hdl.
ENDFORM.Hi,
Look at the below thread, i posted complete code in this one, just copy that Program and past in your SAP and run the Program, it will create 3 sheets with the names also, then look at the Sheet name in the code, you will understand where to add the code
Re: format an excel
Regards
Sudheer -
Change Excel sheet tab color using Open XML dll
Hi,
I want to change the sheet tab color of an excel Xlsx document. I am using the following code but it does not set the sheet color. I get object reference exception when I set the sheet tab color.
public static string filepath = @"C:\Test\Book1.xlsx";
private static void ChangeSheetcolor()
try
using (SpreadsheetDocument spreadSheetDocument = SpreadsheetDocument.Open(filepath, false))
WorkbookPart workbookPart = spreadSheetDocument.WorkbookPart;
IEnumerable<Sheet> sheets = spreadSheetDocument.WorkbookPart.Workbook.GetFirstChild<Sheets>().Elements<Sheet>();
//my code
WorksheetPart worksheetPart =
GetWorksheetPartByName(spreadSheetDocument, "Sheet1");
if (worksheetPart != null)
// worksheetPart.Worksheet.SheetProperties.TabColor.Rgb = DocumentFormat.OpenXml.HexBinaryValue.FromString("Red");
worksheetPart.Worksheet.SheetProperties.TabColor.Rgb = DocumentFormat.OpenXml.HexBinaryValue.FromString("#CCCCCC");
// Save the worksheet.
worksheetPart.Worksheet.Save();
catch (Exception ex)
private static WorksheetPart
GetWorksheetPartByName(SpreadsheetDocument document,
string sheetName)
IEnumerable<Sheet> sheets =
document.WorkbookPart.Workbook.GetFirstChild<Sheets>().
Elements<Sheet>().Where(s => s.Name == sheetName);
if (sheets.Count() == 0)
//does not exist
return null;
string relationshipId = sheets.First().Id.Value;
WorksheetPart worksheetPart = (WorksheetPart)
document.WorkbookPart.GetPartById(relationshipId);
return worksheetPart;
How to change the sheet tab color using Open XML dlls.
Thanks
AshokHi J_Prasanna,
I'm afraid that it's not possible with OpenXML SDK, but it's possible if you use Excel PIA along with Internet Explorer. Use the Internet Explorer COM object to render the HTML content, then copy the document, use the Paste method of the Worksheet object
to paste the text with format.
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate "about:blank"
.document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value
.document.body.createtextrange.execCommand "Copy"
ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")
.Quit
End With
The code is similar if you use managed project.
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey. -
Can we make the excel sheet fields are ready only after downloding
Hi ALL
I have the probelm in the project that when i downlaod the data into excel sheet in that sheet 2 fields should be read only,ie client can't edit those fields.
can any one tel me how can do this one
Thnaks
Lokesh.VHi,
Could u explain the problem in some more brief ie., how u r downloaded the data ie., through open hub infospoke or just saved as a local file.
Regards
Ramakrishna Kamurthy -
My screen got totally white after updating to Yosemite
Uploaded the Yosemite to my IMac.
When installing the new update (running OS10.6.8 before) the computer restarted during installation.of program.
After that the screen is just totally white. What happened and what shall I do?Thank you.
I’m writing from a PC at the moment.
Thanks for the answer. I can’t save anything now, the computer is ‘dead’ it is a shame on all I have on the computer.
And all this problems because of my banc who wanted my to update in order to put in a special identification program.
Who shall I blame?
I have to rebote my computer.
I am crying… ☹
Harriet
Från: Apple Support Communities Updates [email protected]
Skickat: den 17 februari 2015 22:44
Till: Aqua Produkter
Ämne: - My screen got totally white after updating to Yosemite
http://www.apple.com/support/assets/images/external/emails/logo.gif
You received a reply
Kappy<https://discussions.apple.com/people/Kappy?ac_cid=op123456> has replied to your question. You can view the full discussion<https://discussions.apple.com/message/27684871?ac_cid=op123456#27684871> in Apple Support Communities.
My screen got totally white after updating to Yosemite<https://discussions.apple.com/message/27684871?ac_cid=op123456#27684871>
Can you reboot the computer to Snow Leopard? If so, then re-run the Yosemite installer application. It should be in your Applications folder.
If you can't, then you need to erase the drive and reinstall Snow Leopard:
Clean Install of Snow Leopard
Be sure to make a backup first because the following procedure will erase
the drive and everything on it.
1. Boot the computer using the Snow Leopard Installer Disc or the Disc 1 that came
with your computer. Insert the disc into the optical drive and restart the computer.
After the chime press and hold down the "C" key. Release the key when you see
a small spinning gear appear below the dark gray Apple logo.
2. After the installer loads select your language and click on the Continue
button. When the menu bar appears select Disk Utility from the Utilities menu.
After DU loads select the hard drive entry from the left side list (mfgr.'s ID and drive
size.) Click on the Partition tab in the DU main window. Set the number of
partitions to one (1) from the Partitions drop down menu, click on Options button
and select GUID, click on OK, then set the format type to MacOS Extended
(Journaled, if supported), then click on the Apply button.
3. When the formatting has completed quit DU and return to the installer. Proceed
with the OS X installation and follow the directions included with the installer.
4. When the installation has completed your computer will Restart into the Setup
Assistant. After you finish Setup Assistant will complete the installation after which
you will be running a fresh install of OS X. You can now begin the update process
by opening Software Update and installing all recommended updates to bring your
installation current.
Download and install Mac OS X 10.6.8 Update Combo v1.1<http://support.apple.com/kb/index?page=answerlink&url=http%3A%2F%2Fsupport.apple .com%2Fkb%2FDL1399&answerid=16777216&src=support_site.downloads.search>.
Correct Answer <https://discussions.apple.com/email/thread/6836494/correct/27684871> Helpful Answer <https://discussions.apple.com/email/thread/6836494/helpful/27684871>
Use the buttons above to tell Kappy and the rest of the community if this reply solved your question or helped you get closer to finding a solution.
To reply to Kappy, go to the discussion<https://discussions.apple.com/message/27684871?ac_cid=op123456#27684871> in Apple Support Communities.
You are receiving this email from Apple Support Communities. You can change your email preferences in your Apple Support Communities Profile<https://discussions.apple.com/user-preferences!input.jspa>.
TM and copyright © 2014 Apple Inc. 1 Infinite Loop, MS 96-DM. Cupertino, CA 95014.
All Rights Reserved<http://www.apple.com/legal/> | Privacy Policy<http://www.apple.com/legal/privacy/> | Terms of Use<https://discussions.apple.com/docs/DOC-5952> | Apple Support<http://www.apple.com/support/> -
My ipod touch 4 's screen went white after i dropped it.
my ipod touch 4's screen went white after i dropped it.i can still see some icons but with difficulty.there is no external damage and i think the touch works.what happened and how much does it cost to repair it?
iPod touch 8 GB
$149
iPod touch 8 GB (2nd gen.)
$99
iPod touch 8 GB (4th gen.)
$99
iPod touch 16 GB
$199
iPod touch 16 GB (2nd gen.)
$149
iPod touch 32 GB
$249
iPod touch 32 GB (2nd gen.)
$199
iPod touch 32 GB (3rd gen.)
$149
iPod touch 32 GB (4th gen.)
$149
iPod touch 64 GB (3rd gen.)
$199
iPod touch 64 GB (4th gen.)
$199
Clearly, it's not inexpensive. You might wish to try a few things yourself.
First, try a system reset. It cures many ills and it's quick, easy and harmless...
Hold down the on/off switch and the Home button simultaneously until the screen blacks out or you see the Apple logo. Ignore the "Slide to power off" text if it appears. You will not lose any apps, data, music, movies, settings, etc.
If the Reset doesn't work, try a Restore. Note that it's nowhere near as quick as a Reset. Connect via cable to the computer that you use for sync. From iTunes, select the iPad/iPod and then select the Summary tab. Follow directions for Restore and be sure to say "yes" to the backup. You will be warned that all data (apps, music, movies, etc.) will be erased but, as the Restore finishes, you will be asked if you wish the contents of the backup to be copied to the iPad/iPod. Again, say "yes."
Finally, if the Restore doesn't work, let the battery drain completely. Then recharge for at least an hour and Restore again. -
Excel sheet with multiple tabs to be sent as email
Hi Experts,
I have a requirement to generate an Excel sheet with multiple tabs to be sent as email to a distribution list.
Please help if you have any ideas on the same.
Thanks,
Preema[http://wiki.sdn.sap.com/wiki/display/ABAP/ToGetFieldDetailsSavedinVariantLayout|http://wiki.sdn.sap.com/wiki/display/ABAP/ToGetFieldDetailsSavedinVariantLayout]
with this we can get the modified field catalog based on layout variant
without calling alv output function modules
Thanks! SDN. -
Hi all,
I have an excel sheet with 2 spread sheets. 1 hidden and other visible.
1) How to read the excel so that the hidden fields dont come into the internal table in which the data is read?
2) when the data is read from the visible tab of the excel sheet, data from hidden tab is also getting added in the internal table.
How to avoid it?
Useful answers will be rewarded with points.
please help!!!Hi,
If you have 2 tabs in your excel sheet. Open one tab which you want to process save it. Now it should be process active tab only.
thanks,
Sriram. -
Why does my iphone 3gs screen go white after it goes "to sleep" for the first time after turning it on?
The screen isn't broken because it works after i turn the device off and back on, but after it goes black once, it's only white again.
But it takes the touches although it's only white, because I can answer my phone when I slide my finger on the bottom of the screen, eventhough there in not the button to see.
This is so weird. I have already done everything I can think of that might help. But I cannot think of anything that might be causing it, because nothing has happened to the device.Let me know if I should start a new discussion instead of opening a new topic here.
My wife's iPhone is the same vintage as mine 3Gs, but has never had the battery problem. Its affliction instead is that it cannot detect WiFi networks unless it is quite close to the source. Often, when my iPhone not only detects but shows a maximum cells connection with a network, hers cannot detect the network at all. In contrast, her iPhone seems to detect ourcellular carrier just as well as mine does.
Is there any help for this affliction? -
How can i create excel sheet with multiple tabs using utl file?
how can i create excel sheet with multiple tabs using utl file?
any one help me?Jaggy,
I gave you the most suitable answer on your own thread yesterday
Re: How to Generating Excel workbook with multiple worksheets -
How to populate the data to second sheet tab in excel
Hai,
I need to populate data to the second sheet tab of excel sheet .
Below is the code wherein I added datas to first sheet of the excel sheet.Can anyone help me in this ?
<%
response.setHeader("Cache-Control","max-age=0"); // HTTP 1.1
response.setHeader("Pragma","public"); // HTTP 1.0
response.setDateHeader ("Expires", 0); // prevents caching at the proxy server
response.setContentType("application/ms-excel;charset=UTF-8");
response.setHeader("Content-Disposition","attachment;filename=Test.xls");
%>
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name>Sheet-1</x:Name>
<x:WorksheetOptions>
</x:WorksheetOptions>
</x:ExcelWorksheet>
<x:ExcelWorksheet>
<x:Name>Sheet-2</x:Name>
<x:WorksheetOptions>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
<x:WindowHeight>9090</x:WindowHeight>
<x:WindowWidth>15180</x:WindowWidth>
<x:WindowTopX>120</x:WindowTopX>
<x:WindowTopY>15</x:WindowTopY>
<x:ProtectStructure>False</x:ProtectStructure>
<x:ProtectWindows>False</x:ProtectWindows>
</x:ExcelWorkbook>
</xml>
<body link=blue vlink=purple>
<table x:str border=0 cellpadding=0 cellspacing=0 width=192 style='border-collapse:collapse;table-layout:fixed;width:144pt'>
<tr height=17 style='height:12.75pt'>
<td height=17 align=right >HELLO</td>
<td align=right >HI</td>
<td align=right >GOOD BYE</td>
</tr>
</table>
</body>
</html>Hi,
It's been a while since I did this stuff so I apologise if my advice is out of date.
This is actually more of a Micro$oft question as this is their propriety SpreadSheet Markup Language so POI probably won't help. Also, you might want to look at using the default namespace of "urn:schemas-microsoft-com:office:spreadsheet" as this is the more current implementation unless you need to be backward compatible.
On your specific question, I think that you should be able to put the table tag (SSML not HTML) inside the worksheet and then create the rows and cells in there. I've never tried mixing the 2 markup languages though so I'm not sure how to get the HTML to go into the correct sheet.
Sorry I couldn't help more :-( -
Reading data in a tab in an excel sheet
Hi,
I would like to read the data in an excel sheet and upload into an internal table for processing. I was able to do it using function module ALSM_EXCEL_TO_INTERNAL_TABLE but I am not able to read a particular tab. My excel sheet has tabls like A, B, C and D and I want to read only tab C. But currently, it reads data in tab A.
regards,
Srini.Pls check this and review it once. it works for 2 excel sheets in single excel file to read. Pls reward me if its helpful. Thanks !
FUNCTION z_uploading_from_2sheets.
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(FILE_NAME) TYPE RLGRAP-FILENAME
*" REFERENCE(START_ROW_SHEET1) TYPE I
*" REFERENCE(START_COLUMN_SHEET1) TYPE I
*" REFERENCE(START_ROW_SHEET2) TYPE I
*" REFERENCE(START_COLUMN_SHEET2) TYPE I
*" REFERENCE(END_ROW_SHEET1) TYPE I
*" REFERENCE(END_COLUMN_SHEET1) TYPE I
*" REFERENCE(END_ROW_SHEET2) TYPE I
*" REFERENCE(END_COLUMN_SHEET2) TYPE I
*" TABLES
*" IT_DATA1 STRUCTURE ALSMEX_TABLINE
*" ALSMEX_TABLINE STRUCTURE ALSMEX_TABLINE
*" EXCEPTIONS
*" INCONSISTENT_PARAMETERS
*" UPLOAD_OLE
TYPES: ty_t_sender(1500) TYPE c.
DATA: excel_tab TYPE TABLE OF ty_s_senderline,
excel_tab1 TYPE TABLE OF ty_s_senderline.
DATA: ld_separator TYPE c.
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object,
range TYPE ole2_object,
worksheet TYPE ole2_object.
DATA: h_cell TYPE ole2_object,
h_cell1 TYPE ole2_object.
DATA: ld_rc TYPE i.
DATA: it_data TYPE STANDARD TABLE OF alsmex_tabline.
*MESSAGE DEFINATION
DEFINE m_message.
*Function Module To Upload Data From
*Excel File Into Two Internal Tables
*© 2005 SAP AG 6
case sy-subrc.
when 0.
when 1.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
when others. raise upload_ole.
endcase.
END-OF-DEFINITION.
*PARAMETER CHECK.
IF start_row_sheet1 > end_row_sheet1.
RAISE inconsistent_parameters.
ENDIF.
IF start_column_sheet1 > end_column_sheet1.
RAISE inconsistent_parameters.
ENDIF.
IF start_row_sheet2 > end_row_sheet2.
RAISE inconsistent_parameters.
*Function Module To Upload Data From Excel File Into Two Internal Tables
ENDIF.
IF start_column_sheet2 > end_column_sheet2.
RAISE inconsistent_parameters.
ENDIF.
CLASS cl_abap_char_utilities DEFINITION LOAD.
ld_separator = cl_abap_char_utilities=>horizontal_tab.
*OPENING EXCEL FILE
IF application-header = space OR application-handle = -1.
CREATE OBJECT application 'Excel.Application'.
m_message.
ENDIF.
CALL METHOD OF
application
'Workbooks' = workbook.
m_message.
CALL METHOD OF
application
'Workbooks' = workbook.
m_message.
CALL METHOD OF
workbook
'Open'
EXPORTING
#1 = file_name.
m_message.
CALL METHOD OF
application
'Worksheets' = sheet
EXPORTING
#1 = 1.
*Function Module To Upload Data From Excel File Into Two Internal Tables
m_message.
CALL METHOD OF
application
'Worksheets' = sheet
EXPORTING
#1 = 1.
m_message.
CALL METHOD OF
sheet
'Activate'.
m_message.
GET PROPERTY OF application 'ACTIVESHEET' = sheet.
m_message.
*MARKING OF WHOLE SPREADSHEET
CALL METHOD OF
sheet
'Cells' = h_cell
EXPORTING
#1 = start_row_sheet1
#2 = start_column_sheet1.
m_message.
CALL METHOD OF
sheet
'Cells' = h_cell1
EXPORTING
#1 = end_row_sheet1
#2 = end_column_sheet1.
m_message.
CALL METHOD OF
sheet
'RANGE' = range
EXPORTING
#1 = h_cell
#2 = h_cell1.
m_message.
CALL METHOD OF
range
'SELECT'.
m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Copy marked area (SHEET1) into Clippboard
CALL METHOD OF
range
'COPY'.
m_message.
*Read clipboard into ABAP
CALL METHOD cl_gui_frontend_services=>clipboard_import
IMPORTING
data = excel_tab
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE a037(alsmex).
ENDIF.
PERFORM separated_to_intern_convert TABLES excel_tab it_data
USING ld_separator.
APPEND LINES OF it_data TO it_data1.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Clear the clipboard
REFRESH excel_tab.
CALL METHOD cl_gui_frontend_services=>clipboard_export
IMPORTING
data = excel_tab
CHANGING
rc = ld_rc
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
*Working in Second Excel Work Sheet
CALL METHOD OF
application
'Worksheets' = sheet
EXPORTING
#1 = 2.
m_message.
CALL METHOD OF
sheet
'Activate'.
m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
GET PROPERTY OF application 'ACTIVESHEET' = sheet.
m_message.
*Mark Sheet2
CALL METHOD OF
sheet
'Cells' = h_cell
EXPORTING
#1 = start_row_sheet2
#2 = start_column_sheet2.
m_message.
CALL METHOD OF
sheet
'Cells' = h_cell1
EXPORTING
#1 = end_row_sheet2
#2 = end_column_sheet2.
m_message.
CALL METHOD OF
sheet
'RANGE' = range
EXPORTING
#1 = h_cell
#2 = h_cell1.
m_message.
CALL METHOD OF
range
'SELECT'.
m_message.
*Copy Marked Area (Sheet2) into Clippboard
CALL METHOD OF
range
'COPY'.
m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Read Clipboard into ABAP
CALL METHOD cl_gui_frontend_services=>clipboard_import
IMPORTING
data = excel_tab1
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE a037(alsmex).
ENDIF.
*PERFORM separated_to_intern_convert TABLES excel_tab1 IT_DATA2
PERFORM separated_to_intern_convert TABLES excel_tab1 it_data
USING ld_separator.
*Clear Clipboard.
REFRESH: excel_tab1.
APPEND LINES OF it_data TO it_data1.
CALL METHOD cl_gui_frontend_services=>clipboard_export
*Function Module To Upload Data From Excel File Into Two Internal Tables
IMPORTING
data = excel_tab1
CHANGING
rc = ld_rc
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4
*Leaving Application
CALL METHOD OF
application
'QUIT'.
m_message.
* >>>>> Begin of change note 575877
* to kill the Excel process it's necessary to free all used objects
FREE OBJECT h_cell. m_message.
FREE OBJECT h_cell1. m_message.
FREE OBJECT range. m_message.
FREE OBJECT worksheet. m_message.
FREE OBJECT workbook. m_message.
FREE OBJECT application. m_message.
* <<<<< End of change note 575877
ENDFUNCTION. -
After update of Office 2007 during mid December 2014, I have a Macro that does not work properly - which it did before the update.
The Macro is used to make sure that users have Macros enabled when working on the file. The logic basically does the following:
=> In the "OnOpen" event, set all "work sheets" as Visible, and set the "Macro Warning sheet" to non-visible.
=> In the "BeforeSave" event, set the "Macro Warning sheet" as Visible and set all "work sheets" as non-visible.
After the mid December update of Office 2007, the "OnOpen" part still works fine. The "BeforeSave" part does NOT work properly if the save action is triggered by using the shortcut key "CTRS+s". However, if saving the file
using the "Save" option in the menues, the "BeforeSave" action works fine.
Does Microsoft have a fix for this problem? I am not entierly sure exactly which update/KB that caused this.
To recreate the problem, put the following code into the "thisWorkbook" module, and make sure that one sheet has the codeName "wshForceMacros". Open the file, enable Macros, then save the file using the keys "CTRL+s". The macro
now hangs on the row "wshForceMacros.Cells(2, 1).Select" since the wshForceMacros sheet has not become properly visible...
Option Explicit
'ON OPEN
Sub Workbook_Open()
Call ShowSheetsAfterOpen
End Sub
'ON SAVE
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call HideSheetsBeforeSave
End Sub
'ON SAVE
Sub HideSheetsBeforeSave()
Dim oSheet As Worksheet
'Show Macro Lock sheet
wshForceMacros.Visible = xlSheetVisible
wshForceMacros.Activate
wshForceMacros.Cells(2, 1).Select
'Hide all work sheets
For Each oSheet In ThisWorkbook.Worksheets
If oSheet.CodeName <> "wshForceMacros" Then
If oSheet.Visible = xlSheetVisible Then
oSheet.Visible = xlSheetVeryHidden
End If
End If
Next oSheet
End Sub
Sub ShowSheetsAfterOpen()
Dim oSheet As Worksheet
Dim bSaved As Boolean
'Show all work sheets
For Each oSheet In ThisWorkbook.Worksheets
If oSheet.Visible = xlSheetVeryHidden Then
oSheet.Visible = xlSheetVisible
End If
Next oSheet
'Hide Macro Warning Sheet
wshForceMacros.Visible = xlSheetHidden
End SubHi,
This is the forum to discuss questions and feedback for Microsoft Excel, I'll move your question to the MSDN forum for Excel
http://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev&filter=alltypes&sort=lastpostdesc
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs. -
Urgent:download data in differnt tabs of excel sheet
Hi,
I want to save data from internal table to different worksheet of an excel sheet file without using ole. I am having thousands of record in my internal table. Currently I am doing this by using OLE but its response time is very high. Plz suggest any other method with which we can do it fast.
rely will be suitably rewarded
Edited by: amit manglik on Jan 28, 2008 10:23 AM
Edited by: amit manglik on Jan 29, 2008 10:18 AMhi,
Refer sample code:
Multiple excel sheets generation in a workbook
CREATE OBJECT EXCEL 'EXCEL.SHEET'.
GET PROPERTY OF EXCEL 'Application' = APPLICATION.
SET PROPERTY OF APPLICATION 'Visible' = 1.
CALL METHOD OF APPLICATION 'Workbooks' = BOOKS.
CALL METHOD OF BOOKS 'Add' = BOOK.
CALL METHOD OF BOOK 'WORKSHEETS' = SHEET.
CALL METHOD OF SHEET 'ADD'.
Fill all the sheets with relavant data
PERFORM SHEET1 TABLES ITAB1.
PERFORM SHEET2 TABLES ITAB2.
PERFORM SHEET3 TABLES ITAB3.
PERFORM SHEET4 TABLES ITAB4.
Quit the excel after use
CALL METHOD OF EXCEL 'QUIT'.
FREE OBJECT: COLUMN,SHEET,BOOK,BOOKS,APPLICATION,EXCEL. "NO FLUSH.
CLEAR V_SHEET.
FORM FILL_CELL USING ROW COL VAL.
CALL METHOD OF SHEET 'cells' = CELL NO FLUSH
EXPORTING #1 = ROW #2 = COL.
SET PROPERTY OF CELL 'value' = VAL.
FREE OBJECT CELL NO FLUSH.
ENDFORM. " FILL_CELL
FORM SHEET1 TABLES ITAB1 STRUCTURE ITAB1.
V_SHEET = Sheet Name.
V_NO = V_NO + 1.
CALL METHOD OF BOOK 'worksheets' = SHEET NO FLUSH EXPORTING #1 = V_NO.
SET PROPERTY OF SHEET 'Name' = V_SHEET NO FLUSH.
PERFORM FILL_SHEET1 TABLES ITAB1 USING V_NO V_SHEET.
CALL METHOD OF SHEET 'Columns' = COLUMN.
FREE OBJECT SHEET.
CALL METHOD OF COLUMN 'Autofit'.
FREE OBJECT COLUMN.
ENDFORM.
Repeat above procedure for all sheets you want to add
FORM FILL_SHEET1
TABLES ITAB1 STRUCTURE ITAB1
USING V_NO V_SHEET.
ROW = 1.
PERFORM FILL_CELL USING ROW 1 'Column1 Name'.
PERFORM FILL_CELL USING ROW 2 'Column2 Name'.
PERFORM FILL_CELL USING ROW 3 'Column3 Name'.
ROW = ROW + 1.
LOOP AT ITAB1.
PERFORM FILL_CELL USING ROW 1 ITAB1-Column1.
PERFORM FILL_CELL USING ROW 2 ITAB1-Column2.
PERFORM FILL_CELL USING ROW 3 ITAB1-Column3.
ROW = ROW + 1.
ENDLOOP.
ENDFORM.
Repeat above procedure for all sheets you want to add
Also follow this link, for a simillar kind of download program.
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/c05db2ca-569e-2910-0784-fc06cc3be31d
Hope this helps, Do reward.
Maybe you are looking for
-
Sender Mail Adapter - Need to pick all email only with subject "Send to Business Partner "
Hi Experts, I have a mail to file scenario where I need to pick all emails with subject as "Send to Business Partner". I have seen one mail attribute SHeaderSUBJECT. Can I use this attribute to set a condition like SHeaderSUBJECT = "Send to Business
-
Im using windows 7, my firefox 3 was no problem, i tried upgrading it with 4.0 beta i cant send email, now i uninstall 4.0 beta and install 4.0 and still i cant attached mail on yahoo.
-
App crash when after update app. from App Store
Hi all, I have some issue when after update app from App Store. The issue happened since I registered the last update recently. Here are the logs from iPhone console: Jun 28 18:15:45 Rahul-Singhs-iPad backboardd[27] <Warning>: Application 'UIKitAppli
-
What is the reason for this OHS error?
Hello, I installed Weblogic 10.3.5 R1, with Oracle Forms and Reports 11g on 2 computers, with the same installation configuration. One of them is working and the other one doesn't want to start the OHS from EM, although the opmnctl says that the OHS
-
Comunication Center error, can't send SMS or MMS
Hi, after installing the last 2 Pc Suite upgrade, Nokia Comunication center doesn't work no more!! If I try to open it to send an SMS with PC it stops, and give me an error, the details of this are : AppName: communicationcentre.exe AppVer: 7.1.2