Precalculation and save workbook

Hi,
Can i Precalculate a workbook and save it to the server.
For example i have workbook, and i don't "refresh query when opening workbook."
I will precalculate Workbooks and save the last results to the server, so users can see the last results every time they open the workbook without waiting.
I can do this with VBA. With VBA i open the workbook, refresh query and save the workbook, Can i do the same with precalculation ?

SAP's solution would be to publish the wotkbook to the Portal.
OLAP cache (assuming it is activated - check in RSRT - Cache Monitor, or use tran RSRCACHE) will save the results of an OLAP query in dedicated memory on the Appl server, or can also be cached to disk. When the next user comes along and runs the same query with the same values, assuming there has been no new data loaded to the underlying Infoprovider(s), the query results are retrieved from the OLAP cache, eliminating the need to to actually run the query against the DB.

Similar Messages

What auth obj to use for allowing user to create and save workbook?

Hi all,
We are on BI 7.0, we have requirement which will allow users to develop and save workbooks (NOT BEX query) via BEx Analyzer. I have examined the auth obj S_RS_WKBK but it is obsolete auth obj and there is nothing similar obj in BI 7.0.
i then looked at the S_BDS_D, is this all i need in order to allow user to save workbook on to the backend system?
pls note, user can only save workbook NOT BEx query.
regards,
Joe

Hi,
Actually there is no direct away to do it
First use the Authorisation s_user_agr , here in the activity field assign01,02,03 and 06 , in the role name assign a specific role name.
In s_user_tcd in transaction asssign - RRMX.
Got to PFCG, maintain the role.
Hopr this will be expedite.
ThaX and Regards
Vaibhave Sharma

Precalculate and Save Workbook in a client network place

Hi gurus,
My customer wants to precalculate and save it in his network place. I'm doing the precalculation with Broadcaster and this has to send it with email. My question is if there is a way to save (automatically) the workbook in the network places after theprecalculation via background process. They don't want to send the workbook with email.
Thanks in advanced,
Regards
Csr

If you are using the SAP Enterprise Portal, there is a way to do this by creating a "dummy" folder in KM that actually points to a network folder on a remote server. There is a white paper available that describes the steps involved, titled "How to Broadcast a BI Report to a Directory on the Enterprise Portal Server". (The title is actually somewhat misleading, because the folder can be anywhere, not just on the portal.)
Here is the link to it: [https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/40027b87-b9a8-2b10-099c-a1312e25a59c ]
Hope this helps...
Bob

Workbooks : Save as and Save

Hi,
we have read a lot of message about workbooks authorizations and how to allow users to save in their favorites. Also we have found differents message where some collegues try to avoid users to save workbooks, not in a role neither in their favorites.
In this topics the solution provided is to modify the workbooks object type as not modificable in the connection transport, that will not allow to users that has not SAP_ALL authorization create new workbooks and we have two differents types of user.
I will try to explain our scenario:
We have 3 types of users:
-- Keyuser:    Users which can create queries, and workbooks and save it in a shared folder
-- Enduser:    Users which can create workbooks and save only in their favorites, not in the shared folder.
-- Basicuser: Users should only execute the workbooks from the shared folder.
We have created one specific role for each type of user and one role with the folders where the users can share the reports.
For the Basicuser we have created a role with the next authorizations:
   - S_RFC --> ACTVT = 16 ; RFC_NAME = *; RFC_TYPE = FUGR
   - S_RS_AUTH --> BIAUTH = 0BI_ALL
   - S_RS_COMP --> ACTVT = 16 ; RSINFOAREA = ZLO_14* ; RSINFOCUBE = * ; RSZCOMPID = * ;RSZCOMPTP = *
   - S_RS_COMP1 --> ACTVT = 16 ; RSZCOMPID = * ;RSZCOMPTP = * ; RSZOWNER = *
   - S_RS_FOLD --> SUP_FOLDER = 'X'.
   - S_RS_PARAM --> ACTVT = * ; PARAMNM = *
In the role with the shared folder ZBI_SHARED_FOLDER the authorizations are:
   - S_TCODE   --> TCD = RRMX
   - S_USER_AGR --> ACTVT = 03 ; ACT_GROUP = ZBI_SHARED_FOLDER
As far as I have understand the authorizations that user should not be allowed to save any workbook at his favorites. But the user can save workbooks and also view, and create folder in the favorites.
Please has some one avoid that type of users to save any workbook by authorization whithout change the changeability of the object workbooks.
Our system version is SAP NetWeaver BI 7.0
I will apreciate any help, we have go live in one week.
Many thanks in advanced.
Maria

Hi,
we have openned a message to sap and the answer is that there is no way to avoid users save in their favourites by authorization.
Thanks.
Best Regards,
Maria

How to Create and Save a workbook on Enterprise Portal

Hi,
I need to find out how I can create and save a workbook (for a query) in Enterprise portal. Can we save a work book and run it in the same format?
Thanks

Hi,
refer below thread
Re: How do you save the Workbook as View when the workbook do not have quer
also see sap help
http://help.sap.com/saphelp_nw04/helpdata/en/4d/f3fa40badbf36fe10000000a1550b0/frameset.htm
Thanks

Steps to plan and save data in Workbook

Hi all,
Please provide me steps to Plan and save a data in a real time cube using workbook.
I have gone through different articles in SDN and tried to relicate but failed to save the data.
May be I am missing some thing, some steps. Please provide me with steps as giving links will not help me.
Thanks
Sunny

Hi,
You will have to follow the below steps to create a workbook which can save data in realtime cube.
1. First create Aggregation level(mandatory for input ready query which can save data) in Planning Modeler.
    Aggregation level you will have to create on Reatime cube.
    Transaction code for Planning modeler is RSPLAN.
2. After you have created aggregation level .
   -> Create Query in Query Designer on the Aggregation level.
3. Make sure that you have made the setting for keyfigure as Input-ready.
    Also make sure to make you have set the Query Property as 'Start Query in Change mode".
   -> Then only query will be eligible for entering and saving the data on execution.
4. Now when you execute the query in Bex Analyser and save it as Workbook.
-> Data can only be entered and saved when the query open in input-ready mode.
5. The best way to check in Bex analyser whether query is input-ready or not is
-> In the query result layout , use Right lcik of Mouse -> then in the context menu
-> you should see the following two options apart from other options
Two options are:
1. Transfer plan values
2. Save values
If you get these two options then query is input ready and you can enter data and save it in realtime cube using the
Right mouse click -> Save values
6. If query is not coming as input-ready then it means that not all charateristics are drilled down
   -> means that rows does not contains unique records.
In that case you will have to drilldown to make each rows contain unique records.
-> The best way is to restrict the characteristics with variable or single values in filter area.
-> this will give you drilldown data and so the query will come as input-ready.
Pls also check the link:
http://help.sap.com/saphelp_nw70/helpdata/en/43/f234619e3c4c5de10000000a155369/frameset.htm
Regards,
Amit

Precalculation corrupt Excel workbook

Dear All,
I installed the precalculation service and untill I open the Excel workmap on my local PC, where I opend my email account and saved the workbook on my desktop, it works fine.
When opening the workbook I get the error in excel that the workbook is corrupt.....
Anyone had this problem earlier ?
Best regards
Marcel

Hi Experts,
I would like to share you little bit regarding Precal Server 7.0.
1)Whenever you install precalserver, please take care of installation path as mentioned in SAP note.. 1039616
The path of the precalculation service is the same as the path of the BI front
end installation.
(Mostly this would be C:\Program files\SAP\BW\Frontend).
After installation checkout following files are installed in the location C:\Program files\SAP\BW\Frontend.
BExPreCalcServerProgram.exe
BExPreCalcServiceRestarter.exe
BExPreCalcWindowsService.exe
BExPrecServiceInstaller.exe
BExPreCalcRfcServer.dll
BExPreCalcInstance.dll
sapbexp.xla
Issue: Sometimes it will throw error like.
Precalculation failed: E value cannot be null
Parameter name:buffer
cannot precalculate workbook wb_70_test2
Error occured during processing of framework
class CL_RSRD_PRODUCER_EXCEL, type PROD
Solution: This issue is mostly related to not proper installation of precal server. To solve this issue, you have to
uninstall the precal server and restart the machine, and again install the precalserver as specfied in note
1039616
2)Certain time in Windows service the SAP BW Precalculation service dispay start mode but eventhough it is not started
to solve this issue , again you have to restart your SAP BW Precalculation service.
3)Don't Create too many instance(Register) in RSPRECADMIN for your precal server.
4)Check your MIcrosoft Excel version and its support of precal server.(it is better to know the prerequisite of precalserver)
5)Sometimes if you precalculate older workbooks it will throw error. To avoid this upgrade your workbook by opening itin New version
of Excel analyzer and save it again. This will upgrade your workbook.
6)If you not properly saved your workbook, it will through error or you will receive corrupted workbook.
7)After installing your precalserver, check your precalserver staus(green), if it is not show in green, again goto
window serverices and start your precal server windows services.
8)Test your precalserver in RSPRECADMIN. Goto your precalserver(registered/instance that you created in RSPRECADMIN). Dobule click it
give a sample workbook and email-id.
9)As fas as i know precalserver is not working properly for workbook with variables and complex workbooks.Correct me if am wrong.
Check your precalserver in these scenarios.
if it is useful assign points.
hope it helps
Regards,
Senthil Kumar.P

Open and Save Excel Files

Hi All,
I need code of How to open and save excel file in local system in Oracle forms.
With Regards,
Chandra Shekhar

Hello Chandra,
Webutil can be used to achieve this functionality.
STEPS TO FOLLOW
================
1. Install and configure Webutil following instructions in the webutil manual
and the readme file.
2. Create a form with a block Eg. DEPT
3. Create a button, and in that button put the following code -
DECLARE
application Client_OLE2.Obj_Type;
workbooks Client_OLE2.Obj_Type;
workbook Client_OLE2.Obj_Type;
worksheets Client_OLE2.Obj_Type;
worksheet Client_OLE2.Obj_Type;
args Client_OLE2.List_Type;
cell ole2.Obj_Type;
j INTEGER;
k INTEGER;
BEGIN
application := Client_OLE2.create_obj('Excel.Application');
workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');
workbook := Client_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := Client_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := Client_OLE2.Invoke_Obj(worksheets, 'Add');
go_block('dept');
first_record;
j:=1;
k:=1;
while :system.last_record = 'FALSE'
loop
for k in 1..3 /* DEPT has 3 columns */
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
End If;
next_item;
end loop;
j:=j+1;
next_record;
end loop;
/* For the last record */
for k in 1..3
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
End If;
next_item;
end loop;
Client_OLE2.Release_Obj(worksheet);
Client_OLE2.Release_Obj(worksheets);
/* Save the Excel file created */
args := Client_OLE2.Create_Arglist;
Client_OLE2.Add_Arg(args,'d:\test.xls');
Client_OLE2.Invoke(workbook, 'SaveAs', args);
Client_OLE2.Destroy_Arglist(args);
/* release workbook */
Client_OLE2.Release_Obj(workbook);
Client_OLE2.Release_Obj(workbooks);
/* Release application */
Client_OLE2.Invoke(application, 'Quit');
Client_OLE2.Release_Obj(application);
END;
4. Save the form and compile it.
5. Run the form.
6. Execute the query in the block.
7. Click on the button.
8. An excel file will be created in the d:\ directory by the name test.xls.
Kind regards,
Alex
If someone's answer is helpful or correct please mark it accordingly.

Version Management with Analysis workbooks? Doesn't save workbooks in BW Netweaver platform or BO Platform

SAP BusinessObjects Analysis, Edition for Microsoft Office - 1.4 SP6
SAP BusinessObjects BI Platform - 4.1 SP2
BW 7.3
SAP Logon pad - 7300.1.0.1074
We are trying to implement What-if analysis in Analysis Office tool like Revenue increase by N percentages. Excel formula applied for this in the adjacent column to keyfigures that is coming from BEx Query.
Here, I need to save the Workbooks in versions as V1, V2, V3, etc., for various percentages.
When I try to save this in BO platform, only the version V1 (first copy) is getting saved. But, the modified workbook is not getting saved with different name as V2 or V3, etc.,
When I try to save this Netweaver platform, even the first copy V1 is not getting saved. But it displays different versions in the save window before closing the Analysis Office application.
Please provide information on VERSION MANAGEMENT with Analysis Office.
Note: I see a difference in 'Open' and 'Save' window that is Roles are not visible in the 'Open Workbook' window but Roles are visible in 'Save Workbook' window.
Thanks,
Jeni.

SAP BusinessObjects Analysis, Edition for Microsoft Office - 1.4 SP6
SAP BusinessObjects BI Platform - 4.1 SP2
BW 7.3
SAP Logon pad - 7300.1.0.1074
We are trying to implement What-if analysis in Analysis Office tool like Revenue increase by N percentages. Excel formula applied for this in the adjacent column to keyfigures that is coming from BEx Query.
Here, I need to save the Workbooks in versions as V1, V2, V3, etc., for various percentages.
When I try to save this in BO platform, only the version V1 (first copy) is getting saved. But, the modified workbook is not getting saved with different name as V2 or V3, etc.,
When I try to save this Netweaver platform, even the first copy V1 is not getting saved. But it displays different versions in the save window before closing the Analysis Office application.
Please provide information on VERSION MANAGEMENT with Analysis Office.
Note: I see a difference in 'Open' and 'Save' window that is Roles are not visible in the 'Open Workbook' window but Roles are visible in 'Save Workbook' window.
Thanks,
Jeni.

File Server - File size\type search and save results to file

I already have a vb script to do what I want on our file server, but it is very inefficient and slow. I was thinking that a powershell script may be more suitable now but I don't know anything about scripting in PS. So far the vb code that I
have works, and I am not the one who wrote it but I can manipulate it to do what I want it to. The only problem is, when I scan the shared network locations it stops on some files that are password protected and I don't know how to get around it. If
someone else knows of a PS script to go through the file system and get all files of a certain type or size (right now, preferably size) and save the file name, size, path, owner and dates created\modified please point me to it and I can work with that. If
not, could I get some help with the current script that I have to somehow get around the password protected files? They belong in a users' HOME directory so I can't do anything with them. Here is my code:
'Script for scanning file folders for certain types of files and those of a certain size of larger'
'Note: Script must be placed locally on whichever machine the script is running on'
'***********VARIABLES FOR USE IN SCRIPT***********'
'objStartFolder - notes the location of the folder you wish to begin your scan in'
objStartFolder = "\\FileServer\DriveLetter\SharedFolder"
'excelFileName - notes the location where you want the output spreadsheet to be saved to'
excelFileName = "c:\temp\Results_Shared.xls"
'**********END OF VARIABLES**********'
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileName = objFSO.GetFileName(path)
'beginning row and column for actual data (not headers)'
excelRow = 3
excelCol = 1
'Create Excel Spreadsheet'
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
CreateExcelHeaders()
'Loop to go through original folder'
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Call Output(excelRow) 'If a subfolder is met, output procedure recursively called'
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
'Autofit the spreadsheet columns'
ExcelAutofit()
'Save Spreadsheet'
objWorkbook.SaveAs(excelFileName)
objExcel.Quit
'*****END OF MAIN SCRIPT*****'
'*****BEGIN PROCEDURES*****'
Sub ShowSubFolders(Folder)
'Loop to go through each subfolder'
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Call Output(excelRow)
Next
ShowSubFolders Subfolder
Next
End Sub
Sub Output(excelRow)
'convert filesize to readable format (MB)'
fileSize = objFile.Size/1048576
fileSize = FormatNumber(fileSize, 2)
'list of file extensions currently automatically included in spreadsheet report:'
'.wav, .mp3, .mpeg, .avi, .aac, .m4a, .m4p, .mov, .qt, .qtm'
If fileSize > 100 then'OR objFile.Type="Movie Clip" OR objFile.Type="MP3 Format Sound" _ '
'OR objFile.Type="MOV File" OR objFile.Type="M4P File" _'
'OR objFile.Type="M4A File" OR objFile.Type="Video Clip" _'
'OR objFile.Type="AAC File" OR objFile.Type="Wave Sound" _'
'OR objFile.Type="QT File" OR objFile.Type="QTM File"'
'export data to Excel'
objExcel.Visible = True
objExcel.Cells(excelRow,1).Value = objFile.Name
objExcel.Cells(excelRow,2).Value = objFile.Type
objExcel.Cells(excelRow,3).Value = fileSize & " MB"
objExcel.Cells(excelRow,4).Value = FindOwner(objFile.Path)
objExcel.Cells(excelRow,5).Value = objFile.Path
objExcel.Cells(excelRow,6).Value = objFile.DateCreated
objExcel.Cells(excelRow,7).Value = objFile.DateLastAccessed
excelRow = excelRow + 1 'Used to move active cell for data input'
end if
End Sub
'Procedure used to find the owner of a file'
Function FindOwner(FName)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & FName & "'}" _
& " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
FindOwner = objItem.AccountName
Next
End Function
Sub CreateExcelHeaders
'create headers for spreadsheet'
Set objRange = objExcel.Range("A1","G1")
objRange.Font.Bold = true
objExcel.Cells(1, 1).Value = "File Name"
objExcel.Cells(1, 2).Value = "File Type"
objExcel.Cells(1, 3).Value = "Size"
objExcel.Cells(1, 4).Value = "Owner"
objExcel.Cells(1, 5).Value = "Path"
objExcel.Cells(1, 6).Value = "Date Created"
objExcel.Cells(1, 7).Value = "Date Modified"
End Sub
Sub ExcelAutofit
'autofit cells'
Set objRange = objExcel.Range("A1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("B1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("C1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("D1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("E1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("F1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("G1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
End Sub
David Hood

Accessing Excel through automation is bvery slow no matter what tool you use. Scanning a disk is very slow for all tools.
Since Vista all system have a search service that catalogues all major file itmes like size, extension, name and other attributes. A search of a 1+Tb volume can return in less that a second if you query the search service.
You can easily batch the result into Excel by writ4ing to a CSV and opening in Excel. Use a template to apply formats.
Example. See how fast this returns results.
#The following will find all log files in a system that are larger than 10Mb
$query="SELECT System.ItemName, system.ItemPathDisplay, System.ItemTypeText,System.Size,System.ItemType FROM SystemIndex where system.itemtype='.log' AND system.size > $(10Mb)"
$conn=New-Object -ComObject adodb.connection
$conn.open('Provider=Search.CollatorDSO;Extended Properties="Application=Windows";')
$rs=New-Object -ComObject adodb.recordset
$rs.open($query, $conn)
do{
$p=[ordered]@{
Name = $rs.Fields.Item('System.ItemName').Value
Type = $rs.Fields.Item('System.ITemType').Value
Size = $rs.Fields.Item('System.Size').Value
New-Object PsObject -Property $p
$rs.MoveNext()
}Until($rs.EOF)
¯\_(ツ)_/¯

Extract All Embedded Files in All Folders and Save Each? Copy/Paste from PDF to Word?

I have most of what I need here, but I’m missing 2 important pieces.
#1) I want to copy/paste from all PDF files in a folder and paste the copied data into a single Word file.
It works fine if I have ONLY Word docs in my folder. When I have PDF files and Word files, the contents of the Word files are copied in fine, but the contents of the PDF files seem to come in as Chinese, and there is no Chinese in
the PDF, so I have no idea where that’s coming from.
#2) I want to extract all embedded files (in all my Word files) and save the extracted/opened file into the folder. Some embedded files are PDFs and some are Excel files.
Here the code that I’m working with now.
Sub Foo()
Dim i As Long
Dim MyName As String, MyPath As String
Application.ScreenUpdating = False
Documents.Add
MyPath = "C:\Users\001\Desktop\Test\" ' <= change this as necessary
MyName = Dir$(MyPath & "*.*") ' not *.* if you just want doc files
On Error Resume Next
Do While MyName <> ""
If InStr(MyName, "~") = 0 Then
Selection.InsertFile _
FileName:="""" & MyPath & MyName & """", _
ConfirmConversions:=False, Link:=False, _
Attachment:=False
Dim Myshape As InlineShape
Dim IndexCount As Integer
IndexCount = 1
For Each Myshape In ActiveDocument.InlineShapes
If Myshape.AlternativeText = PDFname Then
ActiveDocument.InlineShapes(IndexCount).OLEFormat.Activate
End If
IndexCount = IndexCount + 1
Next
Selection.InsertBreak Type:=wdPageBreak
End If
On Error Resume Next
Debug.Print MyName
MyName = Dir ' gets the next doc file in the directory
Loop
End Sub
If this has to be done using 2 Macros, that’s fine.
If I can do it in 1, that’s great too.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Hi ryguy72,
>>When I have PDF files and Word files, the contents of the Word files are copied in fine, but the contents of the PDF files seem to come in as Chinese, and there is no Chinese in the PDF, so I have no idea where that’s coming from.<<
Based on the code, you were insert the file via the code Selection.InsertFile. I am trying to reproduce this issue however failed. I suggest that you insert the PDF file manually to see whether this issue relative to the specific file. You can insert PDF
file via Insert->Text->Object->Text from file.
If this issue also could reproduced manually, I would suggest that you reopen a new thread in forum to narrow down whether this issue relative to the specific PDF file or Word application.
>> I want to extract all embedded files (in all my Word files) and save the extracted/opened file into the folder. Some embedded files are PDFs and some are Excel files.<<
We can save the embedded spreadsheet via Excel object model. Here is an example that check the whether the inlineshape is an embedded workbook and save it to the disk for you reference:
If Application.ActiveDocument.InlineShapes(1).OLEFormat.ClassType = "Excel.Sheet.12" Then
Application.ActiveDocument.InlineShapes(1).OLEFormat.DoVerb xlPrimary
Application.ActiveDocument.InlineShapes(1).OLEFormat.Object.SaveAs "C:\workbook1.xlsx"
Application.ActiveDocument.InlineShapes(1).OLEFormat.Object.Close
End If
And since the Word object model doesn't provide API to save the embedded PDF, I would suggest that you get more effective response from PDF support forum to see whether it supports automation. If yes, we can export the PDF as embedded spreadsheet like code
absolve.
Hope it is helpful.
Regards & Fei
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.

How to search files, get cells, loop, and save

Howdy Folks, I'm another Applescript newbie in over my head. I'm working on a script to copy xl files into a master xl file. the files is a roster with student and class information. the number of students will vary. WIth help from a friend I have it about 80% where I want it. Need help with the rest. I hope its okay to ask multiple question about the script if not i do apoligize.
when the script runs it asks for the location of the file. the files are titled Houston_Sam_DWI_Jan.xlsx. I have several files in a master folder that i am trying to get data from, but the script goes through one at a time.
I know i need to loop it somehow to go through all of the files containing "DWI" in the title, I just don't know how to do it.
the script is set up to get a range of cells, but there are other individual cells i need to copy like dates(C7), Instructor(H7), and location(C11). How do i get these individual cells and paste them to the master doc: Location(E7), Dates (F7), Instructor(G7) and have them repeat down the column as the number of students from each of the classes populates the list.
finally, i have the master file name as annual report, the script does update the anual report file, but when it goes to save it creates a file named "sheet 1". i just want it to update the annual report file and save all changes.
here is the script i am currently working with:
set master_path to alias "Users:bs:Desktop:master:Annual Report.xlsx"
get_all_files(master_path)
on get_all_files(master_path)
          set example_path to choose file with prompt "Find an example file to work with"
transfer_data(example_path, master_path)
end get_all_files
on transfer_data(child_path, master_path)
          tell application "Microsoft Excel"
                    set child_book to (open workbook workbook file name (child_path as string))
                    set child_doc to worksheet 1 of child_book
                    set master to worksheet 1 of (open workbook workbook file name (master_path as string))
                    set num to 15 --All lists start at index 12 or later, I'm putting 10 to be safe
                    set students to {}
                    tell child_doc --grab values from child document
                              repeat until (value of cell (("A" & num) as string)) is 1
                                        set num to num + 1
                              end repeat
                              repeat until (value of cell (("B" & num) as string)) is ""
                                        set end of students to {name:(value of cell (("B" & num) as string)), driver_id:(value of cell (("C" & num) as string)), DOB:(value of cell (("D" & num) as string)), pre_test:(value of cell (("J" & num) as string)), post_test:(value of cell (("K" & num) as string)), cert_id:(value of cell (("L" & num) as string))}
                                        set num to num + 1
                              end repeat
                    end tell
                    tell master
                              set num to 7
                              log (value of cell (("B" & num) as string))
                              repeat until (value of cell (("B" & num) as string)) is ""
                                        set num to num + 1
                              end repeat
                              repeat with student in students
                                        set value of cell (("B" & num) as string) to name of student
                                        set value of cell (("C" & num) as string) to driver_id of student
                                        set value of cell (("D" & num) as string) to DOB of student
                                        set value of cell (("H" & num) as string) to pre_test of student
                                        set value of cell (("I" & num) as string) to post_test of student
                                        set value of cell (("J" & num) as string) to cert_id of student
                                        set num to num + 1
                              end repeat
save master
                    end tell
save child_book
close child_book
save active workbook in master_path
close active workbook
          end tell
end transfer_data
Any help would be greatly appreciated.

That did it. had to tinker with it but it's doing what i want. Thanks for all of the help. here is the final code
tell application "Finder"
          set master_path to alias "Users:bs:Desktop:master:Annual Report.xlsx"
          set filesWithDWI to get every file of folder ((path to desktop folder) & "master" as string) whose name contains "DWI"
          repeat with f in filesWithDWI
                    my transfer_data(f, master_path)
          end repeat
end tell
on processfile(f)
display dialog f as string
end processfile
on transfer_data(child_path, master_path)
          tell application "Microsoft Excel"
                    set child_book to (open workbook workbook file name (child_path as string))
                    set child_doc to worksheet 1 of child_book
                    set master to worksheet "sheet 1" of (open workbook workbook file name (master_path as string))
                    set num to 15 --All lists start at index 12 or later, I'm putting 10 to be safe
                    set students to {}
                    tell child_doc --grab values from child document
                              repeat until (value of cell (("A" & num) as string)) is 1
                                        set num to num + 1
                              end repeat
                              repeat until (value of cell (("B" & num) as string)) is ""
                                        set end of students to {namevalue of cell (("B" & num) as string)), driver_idvalue of cell (("C" & num) as string)), DOBvalue of cell (("D" & num) as string)), pre_testvalue of cell (("J" & num) as string)), post_testvalue of cell (("K" & num) as string)), cert_idvalue of cell (("L" & num) as string))}
                                        set num to num + 1
                              end repeat
                              set startdate to range "C7"
                              set classlocation to range "C11"
                              set instructor to range "H7"
                    end tell
                    tell master
                              set num to 7
                              log (value of cell (("B" & num) as string))
                              repeat until (value of cell (("B" & num) as string)) is ""
                                        set num to num + 1
                              end repeat
                              repeat with student in students
                                        set value of cell (("B" & num) as string) to name of student
                                        set value of cell (("C" & num) as string) to driver_id of student
                                        set value of cell (("D" & num) as string) to DOB of student
                                        set value of cell (("H" & num) as string) to pre_test of student
                                        set value of cell (("I" & num) as string) to post_test of student
                                        set value of cell (("J" & num) as string) to cert_id of student
                                        set value of cell (("f" & num) as string) to startdate
                                        set value of cell (("E" & num) as string) to classlocation
                                        set value of cell (("G" & num) as string) to instructor
                                        set num to num + 1
                              end repeat
                    end tell
save child_book
close child_book
save active workbook in master_path
close active workbook
          end tell
end transfer_data

Save Workbook in a role in SAP BI

Hi All,
I'm facing an issue in SAP BI 7.0 Security . I have created a Workbook role for a user which she is not able to view when she goes to RRMX>Save Workbook> . The user has all the required authorizations and she can see all the other workbook roles but there is just one role which she can't get in the list when she tries to save workbooks in it.
She can see the role otheriwse in the tab roles.
Any help is much appreciated.
Thanks and Regards
Manisha Nadir

Hi,
If you have no authorizations for update a role, you will not see it when trying to save a workbook(s_user_agr with activity 01,02,06 and the name of the role or * is needed). I made a special role for saving workbooks and also had the name of it in s_user_agr, you will find this when save the workbook in save workbook as and if there is already an other workbook in the role you will also see this in the option add a workbook to a role.
It is also possible that the workbook is called from history or favorites and if you then will save it you need a role as described before.
It is advisable to try this out with the trace on in st01. I noticed that depending of queries and workbooks saving, it uses s_rfc, s_cts_admi(tabl), s_rs_tools (themes for workbooks and webpublish is also an option) and the object in previous answers from this thread.
I noticed that if you start a query from roles, that only the roles with queries are shown, the same for workbooks.
Have fun
Bye
Jan van Roest

How to sign VBA Code in AO and save it on BW-IP side.

Does anybody know if it is possible to sign vba code in AO and save this as Document into BW-IP (to SAP NetWeaver)?
If I try to sign the complete Workbook with a certificate I always get the prompt to convert the file into a Excel file, is it still possible than to save the Workbook to SAPNetWeaver? Anybody tried?

Hi,
I have done that many times. Create a button in the toolbar,say 'SAVE'. Write the code in the subroutine user command.For example :
*&      Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
        RS_SELFIELD TYPE SLIS_SELFIELD.
DATA : REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C.
*Code to reflect the changes done in the internal table
IF REF_GRID IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        E_GRID = REF_GRID.
ENDIF.
IF NOT REF_GRID IS INITIAL.
    CALL METHOD REF_GRID->CHECK_CHANGED_DATA
      IMPORTING
        E_VALID = L_VALID.
ENDIF.
CASE SY-UCOMM.
    WHEN 'SAVE'.
    PERFORM BDC."Write all you BDC code in this subroutine
ENDCASE.
ENDFORM.
Hope this will help.
Thanks & Regards,
Rock.

Save workbook in a role

I have created a role "A" that permite save workbook. I have included the authorization objects:
S_BDS_DS
Activity *
Rolename *
Class type OT
S_USR_TCS
Transaction code: RRMX
S_GUI
Activity 60
S_USER_AGR
Activity *
Name of function *
But when I try save new workbook only role "A" appears. I´d like save workbook in another role... for example "B". It´s possible?
Regards
Daniel

Hi,
The roles are avialable to assign the workbooks or queries to it if and only if it has atleast a worrkbook/Query has been assigned to it already. So I hope, you role B does not has any workbook or query assigned to it. So by PFCG assign a junk workbook to it. And once you complete this assignment in PFCG then you can see Role B in the SAVE option.Once you comlete the saving required work book to it remove the junk workbook by PFCG.
With rgds,
Anil Kumar Sharma .P

Precalculation and save workbook

Similar Messages

Maybe you are looking for