How to link Excel file to Access

Hello,
I created a barcode database using excel and labview. Now i want this data to be in access as a database and continuosly update it.
I have a doubt also as i have created excel sheet of various product barcode and there is always a new sheet that is saved when ever working( this is a requirement) so how can i link all the file and creat one access database.
Thanks in advance, Need urgent help
Regards
Naman Vaidya

sorry for the confusion.
i want labview to link my excel and acess, so that a database is created.
second thing is i am having verious barcode data like for eg. for product X i have a particular barcode and for product Y another so my software create a new excel file whenever we change a product or a particular quantity of any product is filled. Now the question is if everytime i creat a new excel how do i creat a single database by linking all files using labview.
Thanks for the reply.

Similar Messages

I need to know how to link 2 files in 1 folder

Can anyone tell me how to link 2 files in one folder? They are currently in the same folder but I need to link them.
Thank you!

Now we're getting somewhere.
Unfortunately, I don't know Word or Excel very well. It might be better to find assistance over in the Microsoft Word for Mac Forums:
http://office.microsoft.com/en-us/mac-word-help/learning-roadmap-for-word-for-ma c-2011-HA103528093.aspx
http://office.microsoft.com/en-us/mac-word-help/results.aspx?qu=Link+to+excel&ex =1&origin=HA103528093

How to link pdf file in flash by xml ??

how to link pdf file in flash by xml ??

try to give <a href="your address">My Pdf</a>
and your textfield should be html enabled
mytextField.html=true
mytextField.htmlText=your xml text

How to upload Excel file in BI using function module in abap program

How to upload Excel file in BI using function module in abap program?

Hi Anuj,
To upload the file , you can try a standard program "RSEPSFTP" .
while you execute the program , a selection screen appears in which the inputs should be give as
RFC destination - The target server name
FTP command- PUT
local file - your file name
local directory - path of your local file
remote file - your target file name
remote directory - where it has to be stored
Hope this is useful for you
Thanks & regards
Anju

CS3:How to link a file to a InDesign document?

Hello all, I looked at in the LinkWatcher sample code to get an idea how to link a file to a document, I came up with the code below, the last line of code needs pageitemUID instead of pageUID which I used it here: IDFile outFile = Utils<ImyUtils>()->getMyFile(); // it reads the file InterfacePtr<IDataLinkHelper> dataLinkHelper(::CreateObject2<IDataLinkHelper>(kDataLinkHelperBoss)); InterfacePtr<IDataLink> dataLinkNew(dataLinkHelper->CreateDataLink(outFile)); IDocument* theFrontDoc = Utils<ILayoutUIUtils>()->GetFrontDocument(); IDataBase* database = ::GetDataBase(theFrontDoc); InterfacePtr<IDocument> piDoc(theFrontDoc, UseDefaultIID()); InterfacePtr<IPageList> pageList(piDoc, UseDefaultIID()); UID pageUID(kInvalidUID); if (pageList->GetPageCount() > 0) { pageUID = pageList->GetNthPageUID(0); } // I try to link the file to the front document, although it say pageitemUID, as a second //parameter, but I don't want to link the file to a particular page item. is this a right thing to do? int32 result = dataLinkHelper->AddDataLink(database,pageUID, dataLinkNew); as I execute the code it doesn't add the file in Link palette in CS3, but when I pass a UID of one page item such as text frame, it will add the name of file to link palette with a "1" comes to end of row that shows how many times this file was included in the frame. but in case I have not a page item can I use the pageUID instead ? Thanks In Advance, Mor

Lee,
Sorry I think I didn't use the right terminology, somehow I want to include/link the file (not with menu item 'place') programmatically in my current open Indesign document, then I expect to see the filename in Link palette. I can do this with linking to a page item in doc but I don't want to assign it to a particular page item, rather I want to assign it to doc. Is any approach to do it?
Thanks again,
Mor

Importing Word Files With linked Excel files

I have a word document with linked excel files that appear as linked images in word. When these images are clicked it opens it up in Excel where I can edit them which is fine. However, I would like to import the word doc into adobe indesign with editable tables - not images. Is there a way I can do this?
Importing, exporting, converting. Nothing seems to work besides manually bring in the separate excel doc in one by one but that will be very time consuming at my end.
Thanks for any feedback.

AFAIK, that won't work. InDesign doesn't support OLE.
You may need to convert those Excel tables to Word tables before placing into ID.
Bob

How to Zip Excel files using File Adapter?

Hi,
We have tried to ZIP the Excel file with PayloadZipBean in File adapter. But we faced some issue while zipping.
We have seen some zunk data in excel file after zipping with PayloadZipBean. Someone please help how to zip Excel files in PI with File Adapter.
Regards,
Sreeramulu Konjeti.

Hi Sree,
If you are facing any issue with PayloadZipBean then you can use java mapping to Zip the files.
Please find the complete Java mapping code to zipt the file
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/50ce0433-4309-2b10-4bb4-d421e78463f7?quicklink=index&overridelayout=true

Please tell me How to send   excel file content to   MAILBOX

Hello ,
Can anybody tell me how to send Excel file data to Mailbox

Hi,
Check this sample code.
INITIALIZATION .
CLASS cl_abap_char_utilities DEFINITION LOAD.
gf_etb = cl_abap_char_utilities=>horizontal_tab. "For horrizontal tab
gf_cr = cl_abap_char_utilities=>cr_lf. "For enter
gf_lf = cl_abap_char_utilities=>newline. "For new line
Declaration
DATA:    lwa_hd_change TYPE sood1,
           lt_objcont    TYPE STANDARD TABLE OF soli,
           lwa_objcont   TYPE soli,
           lt_receivers TYPE STANDARD TABLE OF soos1,
           lwa_receivers TYPE soos1 ,
           lt_att_cont   TYPE STANDARD TABLE OF soli,
           lwa_att_cont TYPE soli,
           lt_packing    TYPE STANDARD TABLE OF soxpl,
           lwa_packing   TYPE soxpl,
           lf_sent       TYPE sonv-flag,
           lf_size       TYPE i.
CONSTANTS: lc_obj(11) TYPE c VALUE 'BOMSouthco',
             lc_desc(20) TYPE c VALUE 'BOM Download',
             lc_lang(1) TYPE c VALUE 'E',
             lc_raw(3)   TYPE c VALUE 'RAW',
             lc_net(1)   TYPE c VALUE 'U',
             lc_mail(4) TYPE c VALUE 'MAIL',
             lc_xls(3)   TYPE c VALUE 'XLS',
             lc_ext(3)   TYPE c VALUE 'EXT'.
Passing values to the strutures used in SO_OBJECT_SEND function module
lwa_hd_change-objla      = lc_lang.
lwa_hd_change-objnam     = lc_obj.
lwa_hd_change-objdes     = lc_desc.
lwa_hd_change-objlen     = 255.
lwa_objcont-line = text-t29.
APPEND lwa_objcont TO lt_objcont.
CLEAR lwa_objcont.
lwa_receivers-recextnam = text-t31.
lwa_receivers-recesc     = lc_net.
lwa_receivers-sndart     = lc_mail.
lwa_receivers-sndex      = 'X'.
lwa_receivers-sndpri     = 1.
lwa_receivers-mailstatus = 'E'.
APPEND lwa_receivers TO lt_receivers.
CLEAR lwa_receivers.
lwa_receivers-recextnam = text-t30.
lwa_receivers-recesc     = lc_net.
lwa_receivers-sndart     = lc_mail.
lwa_receivers-sndex      = 'X'.
lwa_receivers-sndpri     = 1.
lwa_receivers-mailstatus = 'E'.
APPEND lwa_receivers TO lt_receivers.
CLEAR lwa_receivers.
Passing values for the attachment file
LOOP AT gt_output INTO gwa_output.
    CONCATENATE gf_lf gwa_output-matnr gf_etb gwa_output-idnrk gf_etb
                gwa_output-type   gf_etb gwa_output-menge   gf_etb
                gwa_output-meins gf_etb gwa_output-comp    gf_etb
      INTO lwa_att_cont-line.
    APPEND lwa_att_cont TO lt_att_cont.
    CLEAR lwa_att_cont.
ENDLOOP.
CHECK lt_att_cont IS NOT INITIAL.
DESCRIBE TABLE lt_att_cont LINES lf_size.
lwa_packing-transf_bin = ' '.
lwa_packing-head_start = 1.
lwa_packing-head_num   = 0.
lwa_packing-body_start = 1.
lwa_packing-body_num   = lf_size.
lwa_packing-file_ext   = lc_xls.
lwa_packing-objlen     = lf_size * 255.
lwa_packing-objtp      = lc_ext.
lwa_packing-objdes     = lc_desc.
lwa_packing-objnam     = lc_obj.
APPEND lwa_packing TO lt_packing.
CLEAR lwa_packing.
CHECK gf_error IS NOT INITIAL. "Check if unix file is written
FM to send email to the intended recipients
CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
      object_hd_change           = lwa_hd_change
      object_type                = lc_raw
    IMPORTING
      sent_to_all                = lf_sent
    TABLES
      objcont                    = lt_objcont
      receivers                  = lt_receivers
      packing_list               = lt_packing
      att_cont                   = lt_att_cont
    EXCEPTIONS
      active_user_not_exist      = 1
      communication_failure      = 2
      component_not_available    = 3
      folder_not_exist           = 4
      folder_no_authorization    = 5
      forwarder_not_exist        = 6
      note_not_exist             = 7
      object_not_exist           = 8
      object_not_sent            = 9
      object_no_authorization    = 10
      object_type_not_exist      = 11
      operation_no_authorization = 12
      owner_not_exist            = 13
      parameter_error            = 14
      substitute_not_active      = 15
      substitute_not_defined     = 16
      system_failure             = 17
      too_much_receivers         = 18
      user_not_exist             = 19
      originator_not_exist       = 20
      x_error                    = 21
      OTHERS                     = 22.
IF sy-subrc = 0.
    MESSAGE s004 WITH text-t34.
ENDIF.
COMMIT WORK.
Reward if helpful.
Regards,
Ramya

How to transfer excel files(on ftp server) into internal table?

hello,everyone
pls tell me how to transfer excel files those on a ftp server into internal table?
ps.i know the function 'ftp_server_to_r3',it can help to transfer flat file.

Hi,
I believe you want to get the data from the FTP Server to R3.
I am also sending the code. Have a look and it would help you.
First get the Password and user name and the FTP Server Path where file is stored and FTP Server Host name
FUNCTION zfi_ftp_get.
*"*"Local Interface:
*" IMPORTING
*"     VALUE(I_FILENAME) TYPE C
*" TABLES
*"      T_BLOB STRUCTURE ZFI_TLM_LENGTH OPTIONAL " is a table type with a field called line of length 992
*"      RETURN STRUCTURE BAPIRET2 OPTIONAL
DATA : i_password(30)     TYPE c,
         i_user(30)         TYPE c,
         i_host(30)         TYPE c,
         i_rfc_destination TYPE rfcdes-rfcdest,
         i_length           TYPE i,
         i_folder_path(100) TYPE c.
DATA:   lv_blob_length   TYPE i.
DATA:   lv_length        TYPE i, "Password length
          lv_key           TYPE i VALUE 26101957,
          lv_password(30) TYPE c,
          lv_ftp_handle    TYPE i,
          lv_cmd(80)       TYPE c.
DATA: BEGIN OF result OCCURS 0,
        line(100) TYPE c,
        END OF result.
TYPES: BEGIN OF ty_dummy,
         line(392) TYPE c,
       END   OF ty_dummy.
DATA: lt_dummy TYPE TABLE OF ty_dummy,
        ls_dummy LIKE LINE OF lt_dummy.
i_password        = 'vnhdh'.
i_user            = 'sdkgd'.
i_host            = 'sbnksbg'.
i_rfc_destination = 'SAPFTP'.
i_length          = '992'.
i_folder_path     = '/hioj/hohjk/hh'.
lv_length = STRLEN( i_password ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = i_password
      sourcelen   = lv_length
      key         = lv_key
    IMPORTING
      destination = lv_password.
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = i_user
      password        = lv_password
      host            = i_host
      rfc_destination = i_rfc_destination
    IMPORTING
      handle          = lv_ftp_handle
    EXCEPTIONS
      not_connected   = 1
      OTHERS          = 2.
IF sy-subrc = 1.
    return-type = 'E' .
    return-message = 'FTP Connection not Successful'.
    APPEND return.
ELSEIF sy-subrc = 2.
    return-type = 'E' .
    return-message = 'FTP Connection not Successful'.
    APPEND return.
ELSEIF sy-subrc EQ 0.
    return-type = 'S' .
    return-message = 'FTP Connection Successful'.
    APPEND return.
    CONCATENATE 'cd' i_folder_path INTO lv_cmd SEPARATED BY space.
    CALL FUNCTION 'FTP_COMMAND'
      EXPORTING
        handle        = lv_ftp_handle
        command       = lv_cmd
      TABLES
        data          = result
      EXCEPTIONS
        command_error = 1
        tcpip_error   = 2.
    IF sy-subrc = 1.
      return-type = 'E' .
      return-message = 'Command Error Occured during open of FTP Folder'.
      APPEND return.
    ELSEIF sy-subrc = 2.
      return-type = 'E' .
      return-message = 'TCIP Error Occured during open of FTP Folder'.
      APPEND return.
    ELSE.
      REFRESH t_blob.
      lv_blob_length = 992.
      TRANSLATE i_filename TO LOWER CASE.
      CALL FUNCTION 'FTP_SERVER_TO_R3'
        EXPORTING
          handle      = lv_ftp_handle
          fname       = i_filename
        IMPORTING
          blob_length = lv_blob_length
        TABLES
          blob        = lt_dummy.
      t_blob[] = lt_dummy[].
    ENDIF.
ENDIF.
ENDFUNCTION.
Regards
Sajid
Edited by: shaik sajid on Nov 16, 2010 7:25 AM

Updating Linked Excel File: Changing Worksheets

I have a series of InDesign documents with linked Excel files filled with area-specific rate tables.
The Excel files contain several different areas separated into worksheets. Each worksheet layout is identical. Only the data in the tables changes.
I have a template file set up pointing at Excel File A Worksheet 1, and I would like to redirect the link to Excel File A Worksheet 2.
The problem is that when I ask InDesign to relink, it asks me for the cell coordinates all over again. This ruins my efficiency.
Is there a way to update only the linked file's worksheet, from Excel File A Worksheet 1 to Excel File A Worksheet 2, without resetting the cell coordinates?

I've seen this error sporadically and have no clue what causes it. The
only thing you can do is follow the direction and re-place the file.
Bob

Linked Excel files on Sharepoint Online

Has anyone found a work around to having linked excel files on SharePoint Online?
Right now in all my tests, SharePoint Online disables the links in my excel file to cells in another excel file and I cannot find anyway to change the links.
This is a pretty basic function that is used extensively in excel so I'm a little surprised that this is not available in SP Online.

Hi,
According to your description, the links to other Excel files in the current Excel file not working if in a SharePoint Online environment.
In SharePoint, Excel files is handled by Excel Services. In SharePoint 2013, the “unsupported features continue to behave as they do in Office SharePoint Server 2007
for Excel Services”:
https://msdn.microsoft.com/en-us/library/office/ff595319(v=office.15).aspx
Among the “Unsupported Features in Excel Services in SharePoint 2007”, “External references (workbooks that contain links to other workbooks)” is there:
https://msdn.microsoft.com/en-us/library/ms496823(office.12).aspx
As a workaround, I would suggest that you can transfer the data from Excel file to SharePoint list/library, it would be easier to deal with this scenario in SharePoint
with the content management related feature provided.
You can also submit a feedback to the Office Developer Platform with your expectation about the future version of SharePoint:
http://officespdev.uservoice.com/
Thanks
Patrick Liang
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]
Patrick Liang
TechNet Community Support

How to link Excel 2010 .XLSX file to SQL server 2008R2 - a method that actually works?

I have been trying unsuccessfully to link my excel file to SQL server like I used to with SQL 2005.
In SQL 2008R2 I have installed the 64-bit data access components from Office 2010 to get the provider 'Microsoft.ACE.OLEDB.12.0' avilable.
When I try this command:
SELECT
FROM
OPENDATASOURCE(
'Microsoft.ACE.OLEDB.12.0',
'Data Source="E:\ADUpdates\Employee List1.xlsx"; Extended properties=Excel 12.0')...[Sheet1$]
I get this error:
Msg 7399, Level 16, State 1, Line 1
The OLE DB provider "Microsoft.ACE.OLEDB.12.0" for linked server "(null)" reported an error. Access denied.
Msg 7301, Level 16, State 2, Line 1
Cannot obtain the required interface ("IID_IDBCreateCommand") from OLE DB provider "Microsoft.ACE.OLEDB.12.0" for linked server "(null)".
The Access Denied error seems to be form the worksheet and not the file itself. Evidence is that if I enter a bogus sheet name it tells me the sheet doesn't exist and after this error the file is locked open and can't be saved again from Excel until the
query windows is closed. The sheet is not protected in Excel so I don't know how access to it can be denied.
Does anyone actually have this working in SQL 2008R2?

Some minor progress on this issue by running SQL Server service under a domain account with Administrator priv on the SQL server.
This query now works in a query window:
SELECT * FROM OPENDATASOURCE( 'Microsoft.ACE.OLEDB.12.0', 'Data Source="E:\ADUpdates\Employee List.xlsx"; Extended properties=Excel 12.0')...[EmployeeData];
However, creating a Linked server object for the same spreadsheet still does not work:
EXEC master.dbo.sp_addlinkedserver @server = N'TEST', @srvproduct=N'Excel 12.0', @provider=N'Microsoft.ACE.OLEDB.12.0', @datasrc=N'E:\ADUpdates\Employee List.xlsx'
The test connection to the linked server failed.
Cannot initialize the data source object of OLE DB provider "Microsoft.ACE.OLEDB.12.0" for linked server "TEST".
OLE DB provider "Microsoft.ACE.OLEDB.12.0" for linked server "TEST" returned message "Unrecognized database format 'E:\ADUpdates\Employee List.xlsx'.". (Microsoft SQL Server, Error: 7303)
For help, click:
http://go.microsoft.com/fwlink?ProdName=Microsoft+SQL+Server&ProdVer=10.50.1600&EvtSrc=MSSQLServer&EvtID=7303&LinkId=20476
Naturally, the help link provided only confirms the contempt microsoft holds for their customers by not providing any information at all.
(appologies for the weird colour and fonts, this is a microsoft product, just have to live with obvious defects).

How do I format a linked Excel file in InDesign and maintain formatting when the Excel is modified?

I'm in CS5.5 . I have no problem placing an Excel spreadsheet with the cell range I want and applying cell formatting in InDesign. I am trying to build eight similar documents that will pull data in several tables from a document specific Excel spreadsheet. The only difference is the data itself. I want to build one master InDesign document (master.indd) that links to a corresponding master Excel file (master.xlsx). I'll then do all the table formatting in master.indd once before saving as the eight individual files I need (doc1.indd, doc2.indx, etc.). Soon I'll receive the specific Excel files (doc1.xlxs, doc2.xlsx, doc3.xlxs, etc.) and I will open each InDesign file and relink master.xlxs to the appropriately numbered and corresponding Excel spreadsheet.
My problem is all the formatting of the imported tables is stripped away when I relink. There are at least 60 tables being imported. I'd prefer to format 60 tables versus 480. I've tried importing the Excel as formatted, unformatted, I've applied cell styles in Excel and InDesign but can't catch a break. Can anyone help?

Or alternatively, do all the formatting in Excel and place as a formatted table.
Bob

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.

How to save excel file as *.csv

Hi.
I must upload excel file and next save as *.csv.
How can i do it?

Hi,
USe the code given in the link
http://www.sapdevelopment.co.uk/file/file_upexcel.htm
Cheers
VJ

How to link Excel file to Access

Similar Messages

Maybe you are looking for