Append to excel file

Hi all,
I have got the example in the LV for exporting table to the excel,
The problem i am facing is that i have to append the new data to the same file every time a event occurs.
The vi is attached below.
Thanks in advance .
regards
Attachments:
Write Table To XL 1.vi ‏23 KB

hope this helps
Harold Timmis
[email protected]
Orlando,Fl
*Kudos always welcome
Attachments:
exceldataappend.vi ‏21 KB

Similar Messages

How to append poi excel files?

Hi All,
I am using POI excel files and this is my code to create an excel sheet.
for(i=0;i<i<files.length();i++)
String excel=excelFiles[i]
Date date= new Date();
int rowCount= 45;
Sample samp=new Sample();
samp.createWorkbookForLogReport(excel,date,rowCount);
    private HSSFWorkbook createWorkbookForLogReport(String excel,Date date,int rowCount) throws IOException {
        HSSFWorkbook wb = new HSSFWorkbook();
        HSSFSheet sheet = wb.createSheet("new sheet");
        int idx = 0; // rows index
        HSSFRow row = sheet.createRow((short)idx);
        idx++;
        String[] attributessss =
        { "ExcelName", "Date and Time", "RowCount" };
        for (int j = 0; j < attributessss.length; j++) {
            attribute = attributessss[j];
            row.createCell((short)j).setCellValue((String)attribute);
            row = sheet.createRow((short)idx);
            row.createCell((short)0).setCellValue((String)excelFiles);
            row.createCell((short)1).setCellValue(date);
            row.createCell((short)2).setCellValue(rowCount);
            idx++;
        return wb;
the parametres are continuously changing i am able to write once in the excel file.but couldnt able to append the same excel file.is there any possibility to append the single excel file for changing records.

is it Not possible?

How can I append excel file rather than replace it?

Hi,
I have the attached VI set to write data to Excel, One case structure sends the data to cell B6, the other sends the data to cell B7. The problem is, the data is deleted from one cell when new data is added to another.
I think I want to be able to append the data without deleting other cells. Any ideas?
Thank you
Todd
Attachments:
Flow meter write to Excel question.vi ‏180 KB

Toddzilla,
There are a couple different ways to append to excel files. A couple links that might get you going are:
Can I Add New Data to an Existing Excel File Without Erasing Old Data?
Append Data to an Excel Document Every Iteration Using Report Generation Toolkit
Are you trying to write over cells B6 or B7, or are you trying to append within the cell itself?
Hopefully this can get you on the right track. When I append to files I tend to insert rows or append to the end of the file.
Scott A
SSP Product Manager
National Instruments

Report Generation tool kit for MS office (Opening an existing excel file and appending to the bottom)

I don't have any problems creating and filling an excel sheet with data. I use the New Report.vi, Easy Title.vi, and Easy Text.vi to create the file. I then save and dispose properly.
What I don't seem to be able to do is open the exsting file and append data to the end of the sheet.
Thanks in advance for your help.
todd

Hi Todd,
You can do this by creating a new Excel report with the existing excel file path wired to the "template" input. Then use "Excel Get Last Row.vi" (located under Report Generation\Excel Specific\Excel General) to obtain the location of the last row. Then use that location to input new data into the file.
Hope this helps,
Dan

Append time stamp as a column in an excel file

Hi
i want to add timestamp to the last column of my excel file
my data is this
columnA columnB column C columnD
temp10     temp11    temp12    timestamp these are header name
74.212 73.122 73.222    11AM:23:59.012
73.444 73.223 74.322    11AM:24:02.083
73.445     73.478     75.555       11AM.24:03.833
and continue
I can use write spreadsheet to have the three numeric tempdata but the last column formatted as time stamp and string
how do I add time stamp to my data and call the spreadsheet write VI to append to the excel file ?
help
Solved!
Go to Solution.

You have at least two possibilities: One is to do the formatting yourself with string functions and write the data as a text file or an array of strings.
Another is to convert the timestamp to a Double and save it as numeric data. This is only useful if your are going to read the data back into LV and analyze it there, because Excel's numeric representation of date and time is different from that used by LV.
Lynn

How to Append an existing Excel file?

I am using the jexcel api to write to a new excel file. Each time i run my program, it creates a new Excel File by the name i give it. my code to create the excelFile is as below:-
File excelFile=new File(workDir+"\\"+fileName+".xls");
WritableWorkbook workbook = Workbook.createWorkbook(excelFile);
After this code i write some data to a worksheet in the above mentioned excel file. But my requirement is that I want to create the excel if it does not exist, and if it exists, then the data should be appended to the worksheet in the existing excel file. At present it creates a new excel file and does not append it.
How can it be done? does anyone have any suggestions as to how can i tackle this problem? please suggest something.
Ankit

There is no ready-to-run example, as you are searching for, available.
This has several reasons:
- It depends on the version of Excel. Examples for Excel 2007 might not work with Excel 2010 for instance.
- No one just wants to open Excel without doing anything with it.
The second point is something, i want to ask you:
Why do you want to open an existing Excel file at all? What is it, what you want to do after opening it?
If you have LV/C/C#/VB examples doing what you are looking for, why do you want to have it in TestStand directly, so NOT using existing code (saving time and effort) and basically re-inventing the wheel?
ActiveX is an interface for remote controlling and embedding applications with/in other applications on Windows systems. It is a PROGRAMMING interface.
So naturally, examples and tutorials exist for programming languages. Those examples are easily converted to TestStand sequences with a basic knowledge of the programming language and TestStand. Providing links for such tutorials/examples is a valid way to give support to fellow developers because we expect the fellow to have that basic knowledge.
If that knowledge is not present, i highly recommend to fill that gap.
just my 2 cents,
Norbert
CEO: What exactly is stopping us from doing this?
Expert: Geometry
Marketing Manager: Just ignore it.

Append data to the End of an Excel file

How can I add new data (of a new aquisition) to an existing excel file without erasing old data? I'd like to add the new data aquisition under the last data aquisition. I have not the excel toolkit.
I add here two file, the block diagram (i'm new in labview world ) and what i see in excel when i run my VI. With the program I wrote, i can just save every aquisition in different excel file.
I hope i have been clear, thank you for your time.
L.
Attachments:
how to save data acquisition in excel.jpg ‏51 KB
data acquisition_excel.jpg ‏20 KB

On the Write To Spreadsheet File function, there is a boolean input to append to file. Set that to TRUE.
There are only two ways to tell somebody thanks: Kudos and Marked Solutions
Unofficial Forum Rules and Guidelines

Append characters to an existin excel file

Hello guys
I've an excel file where I write an array (single data type)of 6 elements by using "Write to Spreadsheet File.vi" On this file I also need to write a new column with the time and date.At this point everthing it´s ok, but when I´m trying to append this new column(date & time) with "Write character to File.vi" it writes this data not in the rigth column but it does it in the first column of the file. Could it be wrong by problems with the EOF marker??
I attached the excel file.
Thanks in advance
Attachments:
test_RPila.xls ‏14 KB

Hello,
When I use the Write to Spreadsheet File.vi to append data to an existing Excel file, the data I input doesn't appear in the file.All I get is replace the Excel file by the new data and I loss the old data. This is due because Excel changes tab-delimited format. There is a KB than explains it:
http://digital.ni.com/public.nsf/websearch/D1629D863F0442CC86256A0200558A15?OpenDocument
You could use the Report Generation Toolkit to avoid this Excel formatting. Look at the following KB and you will see that it is possible:
http://digital.ni.com/public.nsf/websearch/EFCE1C25DCE7483E86256CAF00539451?OpenDocument
If you don't have Report Generation Toolkit, try to contact to NI
regards
crisR

Importing from XML to Excel - need to know how to append to existing Excel file

Hello,
I have several XML files that I will need to import into one Excel spreadsheet. I have been able to figure out how to import an XML file to an Excel file but when I import a second XML file, the contents of the second XML overwrite the Excel spreadsheet.
I am looking for an option to append. Thanks in advance
private void XmlToExcel(string xmlFilePath, string excelFilePath)
object misValue = System.Reflection.Missing.Value;
DataSet Trans_ds = new System.Data.DataSet();
Trans_ds.ReadXml(xmlFilePath);
Excel.Application excel = new Excel.Application();
excel.Application.Workbooks.Add(true);
System.Data.DataTable table = Trans_ds.Tables[0];
Worksheet worksheet = (Worksheet)excel.ActiveSheet;
Range excelRange = (Excel.Range)worksheet.get_Range("A" + worksheet.Rows.Count, Type.Missing);
int lastRow = excelRange.get_End(XlDirection.xlUp).Row;
int ColumnIndex = 0;
int rowIndex = lastRow++;
foreach (System.Data.DataColumn col in table.Columns)
ColumnIndex++;
excel.Cells[lastRow, ColumnIndex] = col.ColumnName;
foreach (DataRow row in table.Rows)
rowIndex++;
ColumnIndex = 0;
foreach (DataColumn col in table.Columns)
ColumnIndex++;
excel.Cells[rowIndex + 1, ColumnIndex] = row[col.ColumnName];
worksheet.StandardWidth = 20.0;
worksheet.SaveAs(excelFilePath, misValue, misValue, misValue, misValue, misValue, misValue, misValue, misValue, misValue);
excel.Quit();
releaseObject(worksheet);
releaseObject(excel);

See if this helps. I opened the old excel file and added the new rows into the existing workbook.
private void XmlToExcel(string xmlFilePath, string excelFilePath, Boolean append)
object misValue = System.Reflection.Missing.Value;
DataSet Trans_ds = new System.Data.DataSet();
Trans_ds.ReadXml(xmlFilePath);
Excel.Application excel = new Excel.Application();
Excel.Workbook Bk = excel.Workbooks.Add(true);
System.Data.DataTable table = Trans_ds.Tables[0];
Excel.Worksheet worksheet = (Excel.Worksheet)excel.Worksheets[1];
Excel.Range excelRange = (Excel.Range)worksheet.get_Range("A" + worksheet.Rows.Count, Type.Missing);
int lastRow = excelRange.get_End(Excel.XlDirection.xlUp).Row;
int ColumnIndex = 0;
int rowIndex = lastRow++;
foreach (System.Data.DataColumn col in table.Columns)
ColumnIndex++;
excel.Cells[lastRow, ColumnIndex] = col.ColumnName;
foreach (DataRow row in table.Rows)
rowIndex++;
ColumnIndex = 0;
foreach (DataColumn col in table.Columns)
ColumnIndex++;
excel.Cells[rowIndex + 1, ColumnIndex] = row[col.ColumnName];
worksheet.StandardWidth = 20.0;
if (append == false)
worksheet.SaveAs(excelFilePath, misValue, misValue, misValue, misValue, misValue, misValue, misValue, misValue, misValue);
else
//open old workbook
Excel.Workbook oldworkbook = (Excel.Workbook)excel.Workbooks._Open(
excelFilePath,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing);
//get first sheet in workbook
Excel.Worksheet oldxlSht = (Excel.Worksheet)oldworkbook.Worksheets[1];
//get column A of old worksheet to find last row in sheet
Excel.Range xlRange = (Excel.Range)oldxlSht.get_Range(
"A" + oldxlSht.Rows.Count, Type.Missing);
int LastRow = xlRange.get_End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row;
int newrow = LastRow + 1;
//get last row of new worksheet
xlRange = (Excel.Range)worksheet.get_Range(
"A" + oldxlSht.Rows.Count, Type.Missing);
LastRow = xlRange.get_End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row;
// copy rows of new worksheet to old worksheet
xlRange = (Excel.Range)worksheet.Rows["1:" + LastRow, Type.Missing];
xlRange.Copy(oldxlSht.Rows[newrow, Type.Missing]);
oldworkbook.Save();
excel.Quit();
releaseObject(oldxlSht);
releaseObject(worksheet);
releaseObject(excel);
jdweng

Comparing an excel file to and xml file and appending data to the xml file

I have an xml file (mapsource) and an excel file. One of the columns in the excel file matches up with a node in the xml file. I want to be able to loop through both files and add a new node to the xml file where the one of the columns in the excel file matches a node in the xml file.
I can create a query object out of the excel dosument using the cfspreadsheet tag.
I'm able to use xmlparse to create a xml document object from the xml file.
What I would like to do is add col_3 from the excel spreadsheet as a new node when col_2 is equal to gpx.wpt.name.xmltext of the xml object.
Any help or direction would be very helpful!

Hi,
Thank you for your reply. But I have to attach an excel file from a particular path (C:\TEMP\TEST.XLS) and I have to send that excel file to the user inbox.That excel file has multiple sheets with data. Can you please provide me any code is available.
Thanks and Regards
venkat.

Steps to prepare and upload excel files data to r/3?

Hi abap experts,
We have brand new installed ECC system somehow configured but with no master or transaction data loaded .It is new empty system....We also have some legacy data in excel files...We want to start loading some data into the SAP sandbox step by step and to see how they work...test some transactions see if the loaded data are good etc initial tests.
Few questions here are raised:
-Can someone tell me what is the process of loading this data into SAP system?
-Should this excel file must me reworked prepared somehow(fields, columns etc) in order to be ready for upload to SAP??
-Users asked me how to prepared their legacy excel files so they can be ready in SAP format for upload.?Is this an abaper job or it is a functional guy job?
-Or should the excel files be converted to .txt files and then imported to SAP?Does it really make some difference if files are in excel or .txt format?
-Should the Abaper determine the structure of those excel file(to be ready for upload ) and if yes, what are the technical rules here ?
-What tools should be used for this initial data loads? CATT , Lsmw , batch input or something else?
-At which point we should test the data?I guess after the initial load?
-What tools are used in all steps before...
-If someone can provide me with step by step scenario or guide of loading some kind of initial master data - from .xls file alignment to the real upload - this will be great..
You can email me some upload guide or some excel/txt file examples and screenshots documents to excersize....Email: [email protected]
Your help is appreciated it.!
Jon

Depends on data we upload the data from file to R/3 .
If it is regular updation then we used to get the data from application server files to R/3 since local file updation we can not set up background processing..
If it is master data upload and that to one time upload then we use presenation server files to SAP R/3..
See the simple example to upload the data to on master custom table from XLS File
Program    : ZLWMI151_UPLOAD(Data load to ZBATCH_CROSS_REF Table)
Type       : Upload program
Author     : Seshu Maramreddy
Date       : 05/16/2005
Transport : DV3K919574
Transaction: None
Description: This program will get the data from XLS File
             and it upload to ZBATCH_CROSS_REF Table
REPORT ZLWMI151_UPLOAD no standard page heading
                       line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
       werks(4) type c,
       cmatnr(15) type c,
       srlno(12) type n,
       matnr(7) type n,
       charg(10) type n,
       end of t_text.
data: begin of t_zbatch occurs 0,
      werks like zbatch_cross_ref-werks,
      cmatnr like zbatch_cross_ref-cmatnr,
      srlno like zbatch_cross_ref-srlno,
      matnr like zbatch_cross_ref-matnr,
      charg like zbatch_cross_ref-charg,
      end of t_zbatch.
data : g_repid like sy-repid,
       g_line like sy-index,
       g_line1 like sy-index,
       $v_start_col         type i value '1',
       $v_start_row         type i value '2',
       $v_end_col           type i value '256',
       $v_end_row           type i value '65536',
       gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            PROGRAM_NAME = g_repid
       IMPORTING
            FILE_NAME    = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
    FLEX_TEXT1       =
    FLEX_TEXT2       =
    FLEX_TEXT3       =
*&      Form upload_data
      text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            FILENAME                = p_file
            I_BEGIN_COL             = $v_start_col
            I_BEGIN_ROW             = $v_start_row
            I_END_COL               = $v_end_col
            I_END_ROW               = $v_end_row
       TABLES
            INTERN                  = itab
       EXCEPTIONS
            INCONSISTENT_PARAMETERS = 1
            UPLOAD_OLE              = 2
            OTHERS                  = 3.
IF SY-SUBRC <> 0.
    write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
    read table itab index 1.
    gd_currentrow = itab-row.
    loop at itab.
      if itab-row ne gd_currentrow.
        append t_text.
        clear t_text.
        gd_currentrow = itab-row.
      endif.
      case itab-col.
        when '0001'.
          t_text-werks = itab-value.
        when '0002'.
          t_text-cmatnr = itab-value.
        when '0003'.
          t_text-srlno = itab-value.
        when '0004'.
          t_text-matnr = itab-value.
        when '0005'.
          t_text-charg = itab-value.
      endcase.
    endloop.
endif.
append t_text.
ENDFORM.                    " upload_data
*&      Form modify_table
      Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
    t_final-werks = t_text-werks.
    t_final-cmatnr = t_text-cmatnr.
    t_final-srlno = t_text-srlno.
    t_final-matnr = t_text-matnr.
    t_final-charg = t_text-charg.
    t_final-erdat = sy-datum.
    t_final-erzet = sy-uzeit.
    t_final-ernam = sy-uname.
    t_final-rstat = 'U'.
    append t_final.
    clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
    write:/ 'Updation failed'.
else.
    Skip 1.
    Write:/12 'Updation has been Completed Sucessfully'.
    skip 1.
    Write:/12 'Records in file ',42 g_line .
    write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM.                    " modify_table
*&      Form select_data
      Deleting the duplicate records
FORM select_data.
select werks
         cmatnr
         srlno from zbatch_cross_ref
         into table t_zbatch for all entries in t_final
         where werks = t_final-werks
         and cmatnr = t_final-cmatnr
         and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
    read table t_final with key werks = t_zbatch-werks
                                cmatnr = t_zbatch-cmatnr
                                srlno = t_zbatch-srlno.
    if sy-subrc eq 0.
      delete table t_final .
    endif.
    clear: t_zbatch,
           t_final.
endloop.
ENDFORM.                    " select_data
and also you can use .txt file upload using Function module - GUI_UPLOAD
if it is application server then use open datset command.
Thanks
Seshu

UPLOAD DATA FROM EXCEL FILE

hi guru,
I want to upload data from excel file for mm02.. first of all help on the matter of how to upload data from excel...
i hv used the FM ALSM_EXCEL_TO_INTERNAL_TABLE.. but its not working it uploading garbage value ... so tell me how to used it...
help me on this matter.

Check below example.
parameters : p_file LIKE rlgrap-filename OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_file_name.
PERFORM get_file_to_excel.
*&      Form get_file_name
FORM get_file_name.
DATA: lv_name LIKE sy-repid.
lv_name = sy-repid..
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            program_name = lv_name
            dynpro_number = syst-dynnr
            static        = 'X'
       CHANGING
            file_name     = p_file.
ENDFORM. " get_file_name
*&      Form get_file_to_excel
FORM get_file_to_excel.
DATA: idata LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            filename                = p_file
            i_begin_col             = '1'
            i_begin_row             = '2' "Do not require headings
            i_end_col               = '2'
            i_end_row               = '60000'
       TABLES
            intern                  = idata
       EXCEPTIONS
            inconsistent_parameters = 1
            upload_ole              = 2
            OTHERS                  = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    STOP.
ENDIF.
* Get first row retrieved
READ TABLE idata INDEX 1.
* Set first row retrieved to current row
DATA: gd_currentrow TYPE i.
gd_currentrow = idata-row.
LOOP AT idata.
*   Reset values for next row
    IF idata-row NE gd_currentrow.
      APPEND f. CLEAR f.
      gd_currentrow = idata-row.
    ENDIF.
    CASE idata-col.
      WHEN '0001'.
        f-belnr   = idata-value.
    ENDCASE.
ENDLOOP.
APPEND f. CLEAR f.

How to upload excel file in application server??

Hi,
How to upload an excel file into internal table in background mode from application server?
Thanks

Hi vipin,
check this it may help you...
hope below links helps you
Export the report list to Excel Sheet
http://www.sapdevelopment.co.uk/file/file_updown.htm
or below is a sample programme which helps you upload and download
REPORT ytest5 LINE-SIZE 80
                LINE-COUNT 65
                NO STANDARD PAGE HEADING.
TABLES: dd02l, dd03l.
* selection screen
SELECTION-SCREEN BEGIN OF BLOCK b00 WITH FRAME TITLE text-b00.
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
PARAMETERS: tabname     LIKE dd02l-tabname OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b01.
SELECTION-SCREEN BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
PARAMETERS: path(30)    TYPE c DEFAULT 'C:SAPWorkdir'.
SELECTION-SCREEN END OF BLOCK b03.
SELECTION-SCREEN BEGIN OF BLOCK b04 WITH FRAME TITLE text-b04.
PARAMETERS: p_exp RADIOBUTTON GROUP radi,
            p_imp RADIOBUTTON GROUP radi,
            p_clear     AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b04.
SELECTION-SCREEN END OF BLOCK b00.
* data
DATA: q_return     LIKE syst-subrc,
      err_flag(1) TYPE c,
      answer(1)    TYPE c,
      w_text1(62) TYPE c,
      w_text2(40) TYPE c,
      winfile(128) TYPE c,
      w_system(40) TYPE c,
      winsys(7)    TYPE c,
      zname(8)     TYPE c,
      w_line(80)   TYPE c.
* internal tables
DATA : BEGIN OF textpool_tab OCCURS 0.
        INCLUDE STRUCTURE textpool.
DATA : END OF textpool_tab.
* table for subroutine pool
DATA : itab(80) OCCURS 0.
* events
INITIALIZATION.
PERFORM check_system.
AT SELECTION-SCREEN ON tabname.
PERFORM check_table_exists.
START-OF-SELECTION.
PERFORM init_report_texts.
PERFORM request_confirmation.
END-OF-SELECTION.
IF answer = 'J'.
    PERFORM execute_program_function.
ENDIF.
TOP-OF-PAGE.
PERFORM process_top_of_page.
* forms
*       FORM CHECK_TABLE_EXISTS                                      *
FORM check_table_exists.
SELECT SINGLE * FROM dd02l
INTO CORRESPONDING FIELDS OF dd02l
WHERE tabname = tabname.
CHECK syst-subrc NE 0.
MESSAGE e402(mo) WITH tabname.
ENDFORM.
*       FORM INIT_REPORT_TEXTS                                        *
FORM init_report_texts.
READ TEXTPOOL syst-repid
INTO textpool_tab LANGUAGE syst-langu.
LOOP AT textpool_tab
WHERE id EQ 'R' OR id EQ 'T'.
    REPLACE '&1............................'
    WITH tabname INTO textpool_tab-entry.
    MODIFY textpool_tab.
ENDLOOP.
ENDFORM.
*       FORM REQUEST_CONFIRMATION                                     *
FORM request_confirmation.
* import selected, confirm action
IF p_imp = 'X'.
*   build message text for popup
    CONCATENATE 'Data for table'
                 tabname
                 'will be imported' INTO w_text1 SEPARATED BY space.
*   check if delete existing selected, and change message text
    IF p_clear = ' '.
      w_text2 = 'and appended to the end of existing data'.
    ELSE.
      w_text2 = 'Existing Data will be deleted'.
    ENDIF.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
         EXPORTING
              defaultoption = 'N'
              textline1      = w_text1
              textline2      = w_text2
              titel          = 'Confirm Import of Data'
              cancel_display = ' '
         IMPORTING
              answer         = answer
         EXCEPTIONS
              OTHERS         = 1.
ELSE.
*   export selected, set answer to yes so export can continue
    answer = 'J'.
ENDIF.
ENDFORM.
*       FORM EXECUTE_PROGRAM_FUNCTION                                 *
FORM execute_program_function.
PERFORM build_file_name.
CLEAR: q_return,err_flag.
IF p_imp = 'X'.
    PERFORM check_file_exists.
    CHECK err_flag = ' '.
    PERFORM func_import.
ELSE.
    PERFORM func_export.
ENDIF.
ENDFORM.
*       FORM BUILD_FILE_NAME                                          *
FORM build_file_name.
MOVE path TO winfile.
WRITE '' TO winfile+30.
WRITE tabname TO winfile+31.
WRITE '.TAB' TO winfile+61(4).
CONDENSE winfile NO-GAPS.
ENDFORM.
*       FORM CHECK_FILE_EXISTS                                        *
FORM check_file_exists.
CALL FUNCTION 'WS_QUERY'
       EXPORTING
            filename = winfile
            query    = 'FE'
       IMPORTING
            return   = q_return
       EXCEPTIONS
            OTHERS   = 1.
IF syst-subrc NE 0 OR q_return NE 1.
    err_flag = 'X'.
ENDIF.
ENDFORM.
*     FORM func_export                                              *
FORM func_export.
CLEAR itab. REFRESH itab.
APPEND 'PROGRAM SUBPOOL.' TO itab.
APPEND 'FORM DOWNLOAD.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB.' TO itab.
CONCATENATE 'SELECT * FROM'
              tabname
              'INTO TABLE IT_TAB.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'CALL FUNCTION ''WS_DOWNLOAD''' TO itab.
APPEND 'EXPORTING' TO itab.
CONCATENATE 'filename = ' ''''
              winfile '''' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'filetype = ''DAT''' TO itab.
APPEND 'TABLES' TO itab.
APPEND 'DATA_TAB = IT_TAB.' TO itab.
APPEND 'DESCRIBE TABLE IT_TAB LINES sy-index.' TO itab.
APPEND 'FORMAT COLOR COL_NORMAL INTENSIFIED OFF.' TO itab.
APPEND 'WRITE: /1 syst-vline,' TO itab.
APPEND '''EXPORT'',' TO itab.
APPEND '15 ''data line(s) have been exported'',' TO itab.
APPEND '68 syst-index,' TO itab.
APPEND '80 syst-vline.' TO itab.
APPEND 'ULINE.' TO itab.
APPEND 'ENDFORM.' TO itab.
GENERATE SUBROUTINE POOL itab NAME zname.
PERFORM download IN PROGRAM (zname).
ENDFORM.
*       FORM func_import                                              *
FORM func_import.
CLEAR itab. REFRESH itab.
APPEND 'PROGRAM SUBPOOL.' TO itab.
APPEND 'FORM UPLOAD.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB2 OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB2.' TO itab.
APPEND 'CALL FUNCTION ''WS_UPLOAD''' TO itab.
APPEND 'EXPORTING' TO itab.
CONCATENATE 'filename = ' ''''
              winfile '''' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'filetype = ''DAT''' TO itab.
APPEND 'TABLES' TO itab.
APPEND 'DATA_TAB = IT_TAB.' TO itab.
IF p_clear = 'X'.
    CONCATENATE 'SELECT * FROM'
                tabname
                'INTO TABLE IT_TAB2.' INTO w_line SEPARATED BY space.
    APPEND w_line TO itab.
    APPEND 'LOOP AT IT_TAB2.' TO itab.
    CONCATENATE 'DELETE'
                tabname
                'FROM IT_TAB2.' INTO w_line SEPARATED BY space.
    APPEND w_line TO itab.
    APPEND 'ENDLOOP.' TO itab.
    APPEND 'COMMIT WORK.' TO itab.
ENDIF.
APPEND 'LOOP AT IT_TAB.' TO itab.
CONCATENATE 'MODIFY'
              tabname
              'FROM IT_TAB.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'ENDLOOP.' TO itab.
APPEND 'DESCRIBE TABLE IT_TAB LINES sy-index.' TO itab.
APPEND 'FORMAT COLOR COL_NORMAL INTENSIFIED OFF.' TO itab.
APPEND 'WRITE: /1 syst-vline,' TO itab.
APPEND '''IMPORT'',' TO itab.
APPEND '15 ''data line(s) have been imported'',' TO itab.
APPEND '68 syst-index,' TO itab.
APPEND '80 syst-vline.' TO itab.
APPEND 'ULINE.' TO itab.
APPEND 'ENDFORM.' TO itab.
GENERATE SUBROUTINE POOL itab NAME zname.
PERFORM upload IN PROGRAM (zname).
ENDFORM.
*       Form CHECK_SYSTEM
*            Check users workstation is running
*            WINDOWS 95, or WINDOWS NT.
*            OS/2 uses 8.3 file names which are no good for
*            this application as filenames created are 30 char
*            same as table name.
*            You could change the logic to only use the first 8 chars
*            of the table name for the filename, but you could possibly
*            get problems if users had exported already with a table
*            with the same first 8 chars.
*            As an alternate method you could request the user to input
*            the full path including filename and remove the logic to
*            build the path using the table name.
FORM check_system.
CALL FUNCTION 'WS_QUERY'
       EXPORTING
            query = 'WS'
       IMPORTING
            return = winsys.
IF winsys NE 'WN32_95'.
    WRITE: 'Windows NT or Windows 95/98 is required'.
    EXIT.
ENDIF.
ENDFORM.                               " CHECK_SYSTEM
*       FORM PROCESS_TOP_OF_PAGE                                      *
FORM process_top_of_page.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
ULINE.
CONCATENATE syst-sysid
              syst-saprl
              syst-host INTO w_system SEPARATED BY space.
WRITE : AT /1(syst-linsz) w_system CENTERED.
WRITE : AT 1 syst-vline, syst-uname.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz syst-repid(008).
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
LOOP AT textpool_tab WHERE id EQ 'R'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry CENTERED.
ENDLOOP.
WRITE : AT 1 syst-vline, syst-datum.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz syst-tcode(004).
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
LOOP AT textpool_tab WHERE id EQ 'T'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry CENTERED.
ENDLOOP.
WRITE : AT 1 syst-vline, syst-uzeit.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz 'Page', syst-pagno.
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED OFF.
LOOP AT textpool_tab WHERE id EQ 'H'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry.
ENDLOOP.
ULINE.
ENDFORM.
if it helps you reward with points.
regards,
venu
regards,
venu.

Viewing Excel Files using Tomcat - Problem with caching

Hi all,
A small part of an application I'm writing has links to Excel files for users to view/download. I'm currently using Tomcat v5 as the web/app server and have some very simple code (an example is shown below) which calls the excel file.
<%@ page contentType = "application/vnd.ms-excel" %>
<%
response.setHeader("Pragma", "no-cache");
response.setHeader("Cache-Control", "no-cache");
response.setDateHeader("Expires", 0);
response.sendRedirect("file1.xls");
%>
This all works except but I'm having one big problem.
The xls file (file1.xls) is updated via a share on the server so each month, the xls file is overwritten with the same name but with different contents. I'm finding that when an update is made to the xls file and the user then attempts to view the new file in the browser they recieve only the old xls file. It's caching the xls file and I don't want it to. How can I fix this so that it automatically gives the user the new updated file.
The only way I've managed to get Tomcat to do this is to delete the work directory and delete the file from my IE temp folder and then restart Tomcat - this is a bit much!
Any help would be greatly appreciated.
Thanks.

I'd a problem with caching a few years back, for a servlet request which returned an SVG file.
As a workaround, I ended up putting appending "#" and a timestamp / random number after it. The browser assuming each request was new, and didn't use the cache.
Eg.
http://myserver/returnSVG.do#1234567
where 1234567 is a timestamp / random.
Not sure whether you can do this on a file based URL... but maybe worth a shot...
regards,
Owen

Excel file From FTP Server

Hi All,
I am trying to fetch data from file server which is in EXCEL(.XLS) format.
Able to connect FTP using FTP_CONNECT,using FTP_COMMAND(get filename).
Now the problem is i am able to read text file but not EXCEL file.
How to capture the excel file entries,help me regarding this?
Sachin.

Hi Sachin,
If you want to read the XLS file contains in an internal table, i have these codes, please try it, and if you face any problem, please let me know.
Thanks.
DATA: WA_TAB TYPE ALSMEX_TABLINE,
      LT_TAB TYPE TABLE OF ALSMEX_TABLINE.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
    FILENAME                      = 'C:\TEST.XLS'
    I_BEGIN_COL                   = '1'
    I_BEGIN_ROW                   = '1'
    I_END_COL                     = '255'
    I_END_ROW                     = '255'
TABLES
    INTERN                        = lt_tab
EXCEPTIONS
   INCONSISTENT_PARAMETERS       = 1
   UPLOAD_OLE                    = 2
   OTHERS                        = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
TYPES: BEGIN OF TY_DTAB,
        ZONE TYPE STRING,
        QTR1 TYPE STRING,
        QTR2 TYPE STRING,
        QTR3 TYPE STRING,
        QTR4 TYPE STRING,
       END OF TY_DTAB.
DATA: WA_DTAB TYPE TY_DTAB,
      LT_DTAB TYPE TABLE OF TY_DTAB.
LOOP AT LT_TAB INTO WA_TAB.
CASE WA_TAB-COL.
    WHEN '0001'.
      WA_DTAB-ZONE = WA_TAB-VALUE.
    WHEN '0002'.
      WA_DTAB-QTR1 = WA_TAB-VALUE.
    WHEN '0003'.
      WA_DTAB-QTR2 = WA_TAB-VALUE.
    WHEN '0004'.
      WA_DTAB-QTR3 = WA_TAB-VALUE.
    WHEN '0005'.
      WA_DTAB-QTR4 = WA_TAB-VALUE.
ENDCASE.
AT END OF ROW.
    APPEND WA_DTAB TO LT_DTAB.
ENDAT.
ENDLOOP.
Thanks,
Kunal.

Append to excel file

Similar Messages

Maybe you are looking for