Using VBA in dimension sheets

Hi
I am trying to use VBA in a Dimension xls to update property columns from an external flat file.
When the dim.xls file is open in administration, I can see the vba project (Worksheet in BpcFrameControl).
I created a module then transferred some working code into it, however the module is not retained when I reopen the dim.xls.
Has anyone successfully used vba in a dim.xls?
My second question is regarding where the external flat file should sit, assuming I can get the code to work, I would prefer it to sit with the application folders so that anyone can use the macro, are there any issues with access rights? My application files are currently held on the sql server not the application server so I presume IIS is redirecting via the app server to the sql server.
Many thanks
Phil

Phil,
You can used
=EVMNU("OPENFILE", "Opening file...","
FILESERVER\Osoft\Webfolders\AppSetName\AppName\EEXCEL\REPORTS\ReportName.xlt")
To open the stand alone file at one place and that can have all the code and this file can open the report you need or you can have the steup the other way around.
This will handle yoor excel code.
After this you will still need to run the SSIS, There is a bat command you can execute to run SSIS, This can get complicated if you have multserver MSAS install. but i have done this so i know you can do this.
Post your questions and i will try to answer..
Sam

Similar Messages

Using VBA Can we check the Font Testing in all the sheets (Arial)

Team,
Using VBA Can we check the Font Testing in all the sheets.
Let us Assume the Font Type is Arial.
I Need to create a File with Two Sheets.
1) First Sheet
a) Serial No
b) Path of the Files ( Excel Files to check the Format)
2) Second Sheet
If the Font is not Arial. We have to track the File Name (that we should get it from First Sheet Path Column) , Cell Number (ex: C3), Cell Value.
Is that Possible?
Thanks!
Kiran

Hi John,
Thank you very much for your reply,
But the above code is taking long time to run.
Basically I have a Main file which calls set of files in a certain folder. When I click on Check format button I need to compare all the file mentioned in the Main file.
When comparing the Main sheet should create a new sheet with all the Failures of Format checking Results.
I mean which are NON-Arial. The newly created sheet should have 3 columns
1) File Name
2) Sheet Name
3) Cell Name - Cell Value - Arial Font is not matching
Main File Format of Sheet 1
https://www.dropbox.com/s/kzoh1brbaf7e55r/Format_Checker_Main%20Sheet.jpg?dl=0
Sheet 2
This Sheet need to be created by Macro for Capturing the Failed Non-Arial ones.
Many Thanks!
Kiran

Use VBA and Excel to open Dreamweaver HTML (CS5), find and replace text, save and close

I wish to use VBA and Excel to programmatically open numbered Dreamweaver HTML (CS5) and find and replace text in the code view of these files, save and close them.
I have 5000 associations between Find: x0001 and Replace: y0001 in an Excel sheet.
I have the VBA written but do not know how to open, close and save the code view of the ####.html files. Please ... and thank you...
[email protected]

This is actually the code view of file ####.html that I wish to find and replace programmatically where #### is a four digit number cataloguing each painting.... In 1995 I thought this was clever... maybe not so clever now :>)) Thank you for whatever you can do Rob!
!####.jpg!
h2. "Name####"
Oils on acrylic foundation commercial canvas - . xx X xx (inches) Started
Back of the Painting In Progress </p> </body> </html>
Warmest regards,
Phil the Forecaster, http://philtheforecaster.blogspot.ca/ and http://phils-market.blogspot.ca/

Excel 2010 Synchronize List with SharePoint List using VBA

I have used and loved the interaction between Excel and SharePoint for many generations of both solutions. It's a wonderful opportunity to integrate the familiarity and simplicity of Excel (formatting, ease of use, availability) with the data storage
and centralized list capabilities of SharePoint. Right?
When upgrading to Excel 2010, I have noticed with much dismay that much of the inherent easy to use features of previous versions were effectively stripped from this newest version. Much research, time and energy has been spent working around and resolving
the deficiency. One Microsoft based article,
http://support.microsoft.com/kb/930006, has provided the mechanics behind utilizing the "hidden" functionality... although, this capability to use VBA to create the synchronized list was available in previous versions. However, once Microsoft
published this article to this "hidden" functionality... I feel that the behavior should be supported by Microsoft in some way. OK?
Revised instructions to reproduce the problem:
1. Create a SharePoint list with 20 dummy records.
- Note the List Name ##LIST_NAME##
- Note the View GUID ##VIEW_GUID##
- Note SharePoint Base URL ##BASE_URL##
2. REVISED... In Excel 2010, save the file as Compatible "Excel 97-2003 Workbook". Close the file and reopen.  Create a connected table (ListObject) in Excel using the article above to the SharePoint list. Use Sample VBA code
below:
Sub LinkedSharePointList()
ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal,_
    Source:=Array(##BASE_URL## & "/_vti_bin", ##LIST_NAME##, _
    ##VIEW_GUID##), LinkSource:=True, Destination:=Range("A1")
End Sub
3. OOPS REVISED this item. The problem is actually with ROW 21... So, update record on row 21... (no matter where the table is located... (if the "Destination" is "A1", then the problem is with ID=20, but if the Table is
shifted down to say A12, then ID=9 on row 21). Anyway... make a simple change to that record... and you'll see the ID immediately change.... as if it's a NEW record. WEIRD! Note: If the sheet is protected, then an error is displayed
indicating that a "read-only" record cannot be updated (referring to the ID cell in column A for the current row).
4. Now "synchronize" the list with excel. The former record is still in the list unchanged AND there is a NEW record in the list holding the changes. There are a number of problems that seem to ONLY occur when something changes to ROW
21.... Next, try to copy/paste multiple records across multiple rows that intersect with ROW 21. Yikes!!
I look forward to hearing others' experience!
Thanks!
Mark

Here are some things that you can try (change the code, where appropriate):
Private Sub CreateList()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    RowCtr = 1
    Set folder = fs.GetFolder("http://excel-pc:43231/Shared Documents/Forms/") '<=Variable Location
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub ListAllFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim pth As String
Dim WBn As Workbook
Dim ObCount As Long
Dim FileNme As String
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("\\excel-pc:43231\Shared Documents\Forms\")
'** You'll need to specify your path here. By removing the http: from the path, the code liked it & found the folder. It wasn’t working previously ***
pth = "http://excel-pc:43231/Shared Documents/Forms/"
'** You'll need to specify your path here. The reason I’ve done this separately is because the path is not recognised otherwise when trying to specify it with workbook.open & using the value set for objFolder **
ObCount = objFolder.Files.Count
'** counts the number of files in the folder
'Loop through the Files collection
For Each objFile In objFolder.Files
Nm1 = Len("http://excel-pc:43231/Shared Documents/Forms/")
'** You'll need to specify your path here **
Nm2 = Len(objFile) - Nm1
FileNme = Right(objFile, Nm2)
'** I’ve done this part to find out/set the file name**
Set WBn = Workbooks.Open(pth & FileNme, , , , Password:="YourPassword")
'** opens the first file in the library – if there is no password, the remove everything from - , , , , Password:="Password1" – leaving the close bracket ‘)’
Application.ScreenUpdating = False
'** optional – you can leave the screen updating on
'<< Your coding here>>
'** The file is now open. Enter whatever code is specific to your spreadsheets.
Next
'** goes to next file within your sharepoint folder
End Sub
Sub SharePoint()
Dim xlFile As String, xlFullFile As String
Dim xlApp As Excel.Application
Dim wb As Workbook
xlFile = "\\excel-pc:43231\Shared Documents"
'http://excel-pc:43231/Shared Documents/
'****----denotes the path.(i.e) u give the path as windows search.Don't use "\" at the end.
'In the sharepoint path %20 denotes space.so u remove that and use space .
Set xlApp = New Excel.Application
xlApp.Visible = True
xlFullFile = GetFullFileName(xlFile, "Book") 'ANZ denotes starting characters of the file.
xlFile = xlFile & "\" & xlFullFile
Set wb = xlApp.Workbooks.Open(xlFile, , False)
'Once the workbook is opened u can do ur code here
wb.Close False
End Sub
Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)
For Each objFile In objFolder.Files 'Instead of specifying the starting characters of the file you can directly loop through all files in the folder .
'Test to see if the file matches the partial file name
If Left(objFile.Name, intLengthOfPartialName) = strFileNamePartial Then
'get the full file name
strfilenamefull = objFile.Name
Exit For
Else
End If
Next objFile
Set objFolder = Nothing
Set objFS = Nothing
'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function
Sub SrchForFiles()
' Searches the selected folders and sub folders for files with the specified (xls) extension.
'ListTheFiles 'get the list of all the target XLS files on the SharePoint Directory
Dim i As Long, z As Long, Rw As Long, ii As Long
Dim ws As Worksheet, dd As Worksheet
Dim y As Variant
Dim fldr As String, fil As String, FPath As String
Dim LocName As String
Dim FString As String
Dim SummaryWB As Workbook
Dim SummaryWS As Worksheet
Dim Raw_WS As Worksheet
Dim LastRow As Long, FirstRow As Long, RowsOfData As Long
Dim UseData As Boolean
Dim FirstBlankRow As Long
'grab current location for later reference, for where to paste final data
Set SummaryWB = Application.ActiveWorkbook
Set SummaryWS = Application.ActiveWorkbook.ActiveSheet
y = "xls"
fldr = "\\excel-pc:43231\Shared%20Documents\Forms\AllItems.aspx"
FirstBlankRow = 2
'asd is a 1-D array of files returned
asd = ListFiles(fldr, True)
Set ws = Excel.ThisWorkbook.Worksheets(1) 'list of files
ws.Activate
ws.Range("A1:Z100").Select
Selection.Clear
On Error GoTo 0
For ii = LBound(asd) To UBound(asd)
Debug.Print Dir(asd(ii))
fil = asd(ii)
'open the file and grab the data
Application.Workbooks.Open (fil), False, True
'Get file path from file name
FPath = Left(fil, Len(fil) - Len(Split(fil, "\")(UBound(Split(fil, "\")))) - 1)
'Get file information
If Left$(fil, 1) = Left$(fldr, 1) Then
If CBool(Len(Dir(fil))) Then
z = z + 1
ws.Cells(z + 1, 1).Resize(, 6) = _
Array(Dir(fil), LocName, RowsOfData, Round((FileLen(fil) / 1000), 0), FileDateTime(fil), FPath)
DoEvents
With ws
.Hyperlinks.Add .Range("A" & CStr(z + 1)), fil
'.FoundFiles(i)
End With
End If
End If
'Workbooks.Close 'Fil
Application.CutCopyMode = False 'Clear Clipboard
Workbooks(Dir(fil)).Close SaveChanges:=False
Next ii
With ws
Rw = .Cells.Rows.Count
With .[A1:F1]
.Value = [{"Full Name","Location","Rows of Data","Kilobytes","Last Modified", "Path"}]
.Font.Underline = xlUnderlineStyleSingle
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
.[G1:IV1 ].EntireColumn.Hidden = True
On Error Resume Next
'Range(Cells(Rw, "A").End(3)(2), Cells(Rw, "A")).EntireRow.Hidden = True
Range(.[A2 ], Cells(Rw, "C")).Sort [A2 ], xlAscending, Header:=xlNo
End With
End Sub
Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fileList As String
' get the starting folder
Set fld = fso.GetFolder(Path)
' let the private subroutine do all the work
fileList = ListFilesPriv(fld, NestedDirs)
' (the first element will be a null string unless the first ";" is removed)
fileList = Right(fileList, Len(fileList) - 1)
' convert to a string array
ListFiles = Split(fileList, ";")
End Function
' private procedure that returns a file list
' as a comma-delimited list of files
Function ListFilesPriv(ByVal fld As Scripting.folder, _
ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.folder
' list all the files in this directory
For Each fil In fld.Files
'If UCase(Left(Dir(fil), 5)) = "MULTI" And fil.Type = "Microsoft Excel Worksheet" Then
If fil.Type = "Microsoft Excel Worksheet" Then
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Debug.Print fil.Path
End If
Next
' if requested, search also subdirectories
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function
Finally . . .
Sub ListFiles()
    Dim folder As Variant
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    Dim FPath As String
    Dim wb As Workbook
    RowCtr = 1
    FPath = "http://excel-pc:43231/Shared Documents"
    For Each f In FPath
    'Set folder = fs.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub test()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'Set colSubfolders = objFolder.SubFolders
    'For Each objSubfolder In colSubfolders
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    'Next
End Sub
Ryan Shuell

RFC call from Excel using VBA

I am trying to do an RFC call from Excel to SAP using VBA. RFC is working fine for most the RFC enabled Function Modules except DDIF_FIELDINFO_GET and DDIF_FIELDLABEL_GET.
What can be the reason for this?
Can someonme please help me with a macro code where these FMs are working.
Also can someone please help me with some tutorial on SAP connection with Excel.
<REMOVED BY MODERATOR - REQUEST OR OFFER POINTS ARE FORBIDDEN>
Edited by: Alvaro Tejada Galindo on Nov 12, 2008 9:14 AM

Hello Jon.
DDIF_FIELDINFO_GET is not working for me either. But I have used another FM (/ZOPTION/LIVE_DDIF_FIELDINFO):
Public Sub RFC_FIELDINFO()
Dim Func As Object
Dim sapConn As Object
Dim tblFIELDTAB
Dim tblFIXED_VALUES
Dim intRow%
Dim intCol%
'* Sub     : Call FM /ZOPTION/LIVE_DDIF_FIELDINFO                         *
'* Author : Holger Köhn                                                  *
'* Created : 23.08.2014                                                   *
'* Changed :                                                              *
ThisWorkbook.Sheets("TEST").Activate
Cells.Select
Selection.ClearContents
ThisWorkbook.Sheets("TEST").Range("A1").Select
'* create RFC-Connection                                                  *
Set sapConn = CreateObject("SAP.Functions")
sapConn.Connection.RfcWithDialog = True
If sapConn.Connection.LogOn(1, False) <> True Then
    MsgBox "Cannot Logon to SAP"
    Exit Sub
End If
DoEvents
'* run FM /ZOPTION/LIVE_DDIF_FIELDINFO                                    *
Set Func = sapConn.Add("/ZOPTION/LIVE_DDIF_FIELDINFO")
Func.Exports("TABNAME") = "AUFK"
Set tblFIELDTAB = Func.Tables("FIELDTAB")
If Func.Call = False Then
     MsgBox Func.Exception
     Exit Sub
Else
    Application.ScreenUpdating = False
        For intCol = 1 To tblFIELDTAB.ColumnCount
            ThisWorkbook.Sheets("TEST").Cells(1, intCol).Value = tblFIELDTAB.ColumnName(intCol)
        Next
        If tblFIELDTAB.RowCount > 0 Then
            For intRow = 1 To tblFIELDTAB.RowCount
                For intCol = 1 To tblFIELDTAB.ColumnCount
                    ThisWorkbook.Sheets("TEST").Cells((intRow + 1), intCol).Value = tblFIELDTAB(intRow, intCol)
                Next
            Next
            ThisWorkbook.Sheets("TEST").Activate
        End If
        Columns.AutoFit
    Application.ScreenUpdating = True
End If
'* clear tblFIELDTAB                                                      *
Do Until tblFIELDTAB.RowCount = 0
     Call tblFIELDTAB.Rows.Remove(1)
Loop
Set sapConn = Nothing
Set Func = Nothing
Set tblFIELDTAB = Nothing
End Sub

Smart View Ribbon not shown when Excel is invoked using VBA

Dear Hyperion Gurus,
I am in need to invoke smartview refresh by calling excel using VBA from an excel module in another sheet(master template). But when I invloke Excel using VBA, smartview ribbon does not get activated, due to which the HypConnect, HypVMenuRefresh command does not work. If I directly open excel and run the module it connects fine and does the refresh without any problem. I have tried to enable and disable smartview using VBA but it does not work either. If I call excel directly using a batch using Call command, then it works fine, however the batch file does not close as if I use ThisWorkbook.Close command, then it does not completely close Excel, the instance still runs, and if I try to close using Application.Quit, then it closes down Excel completely. Any help would be highly appreciated.
Thanks and Regards,
SiddN.

Hi,
I was able to achieve this using batch files by calling the excel templates one by one.
Thanks,
SiddN.

Use of MEASURES dimension in a RUNALLOCATION in a script logic

Hi everybody,
We are trying to use MEASURES dimension inside a RUNALLOCATION in a script logic, because we need to work with the information at a YTD element
Example:
It works:
*XDIM_MEMBERSET C_CATEGORY=%C_CATEGORY_SET%
*XDIM_MEMBERSET TIEMPO=%TIEMPO_SET%
*XDIM_MEMBERSET PRODUCT=BAS(TOT_PRODUCT)
*XDIM_MEMBERSET MARKET=BAS(TOT_MARKET)
*RUNALLOCATION
          *FACTOR=USING
          *DIM ACCOUNT     WHAT=Cost;          WHERE=Import;           USING=Units;
//        *DIM MEASURES    WHAT=PERIODIC;      WHERE=PERIODIC;         USING=YTD;
          *DIM CLIENT      WHAT=CLIENTE_NA;    WHERE=>>>;              USING=BAS(TOT_CLIENT);
*ENDALLOCATION
*COMMIT
It doesn't work:
*XDIM_MEMBERSET C_CATEGORY=%C_CATEGORY_SET%
*XDIM_MEMBERSET TIEMPO=%TIEMPO_SET%
*XDIM_MEMBERSET PRODUCT=BAS(TOT_PRODUCT)
*XDIM_MEMBERSET MARKET=BAS(TOT_MARKET)
*RUNALLOCATION
          *FACTOR=USING
          *DIM ACCOUNT     WHAT=Cost;          WHERE=Import;           USING=Units;
          *DIM MEASURES    WHAT=PERIODIC;      WHERE=PERIODIC;         USING=YTD;
          *DIM CLIENT      WHAT=CLIENTE_NA;    WHERE=>>>;              USING=BAS(TOT_CLIENT);
*ENDALLOCATION
*COMMIT
How can we do it? Is possible to use Measures dimension?
Any idea out there?
Kind regards
Albert Mas

Hi Albert,
I believe you are correct that using MEASURES in this way is not possible. Depending on whether you have data in future periods, you may just be able to use the time dimension instead of the measures dimension:
*DIM TIME WHAT=2010.AUG; WHERE=2010.AUG; USING=2010.TOTAL;
You could also manually maintain a property and select on the property to do the same thing, which would allow you to exclude future periods.
Another option might be to make your Units account a balance sheet account, which should make it always behave as a YTD value, or create a second UNITS_YTD account as a balance sheet account and populate it with the Units YTD value using script logic before running the allocation, then use the UNITS_YTD account as your allocation driver.
Ethan

Plot a scatter two-y axis using VBA?

I am working for a company on the oil and gas field. We are collecting data for pressure and load in every job we do. I am in charge on making a code to plot these sets of data using VBA in Excel. Does anyone know how to write a code for plotting in a
different sheet a two-y axis (pressure and load) vs time graph using VBA in Excel?

Hi,
This is the forum to discuss questions and feedback for Microsoft Excel, this issue is more relate to Excel DEV, please post the question to the MSDN forum for Excel
http://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev&filter=alltypes&sort=lastpostdesc
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in
Office programs.

Help using VBA to auto generate PDF using PDFMaker

I am using Adobe 9 Pro ( v9.2.0) and would to automate the building of PDFs from Excel.
I have an Excel document with a [Main] page that has hyperlinks to the multiple worksheets in the document.
I can manually select the [Main] sheets + all other sheets and choose SaveAs [Adobe PDF] and it builds a single PDF with all the sheets and includes the Hyperlinks so I can go from the [Main] page to each of the individual pages ( worksheets ) and back.
I would like to automate this build ( as I have to create 100+ PDFs per month ) using VBA.
In the Excel IDE, I added reference to [AdobePDFMakerForOffice] and the code below (which I copied from another post on this forum ) but it only creates one page ( active sheet ) !
Can anyone help with what I am doing wrong ?
Cannot find any documentation on the Usage or Example on the subject.
Thanks Aubrey
Sub rxSaveAsPDF(pSaveAs)
    Dim xx As Integer, retVal As Long
    Dim appAdobe As AdobePDFMakerForOffice.PDFMaker
    Dim appSettings As AdobePDFMakerForOffice.ISettings
    For xx = 1 To Application.COMAddIns.Count
        If InStr(UCase(Application.COMAddIns(xx).Description), "PDFMAKER") > 0 Then Set appAdobe = Application.COMAddIns(xx).Object
    Next xx
    appAdobe.GetCurrentConversionSettings appSettings
    appSettings.OutputPDFFileName = pSaveAs
    appSettings.ConvertAllPages = True
    appSettings.CreateFootnoteLinks = True
    appSettings.CreateXrefLinks = True
    appSettings.AddTags = False
'    appSettings.ShouldShowProgressDialog = True
'    appSettings.ViewPDFFile = True
    appSettings.FitToOnePage = False
    appSettings.PromptForSheetSelection = False
    appSettings.AddLinks = True
    appSettings.AddTags = True
    appSettings.AddBookmarks = True
    appSettings.AdvancedTagging = True
    appAdobe.CreatePDFEx appSettings, 0
    Set appAdobe = Nothing
    Set appSettings = Nothing
End Sub

Moved to Acrobat SDK

Access 2010: Using VBA to xport table to Excel, then modify the excel workbook externally?

I've got some tables in Access which I export to Excel using VBA. Once exported, I'd like to add some pivot tables, special formatting and formulas into the workbook. Any idea how to do this? Here are some specific tasks after the export:
1. Insert a pivot table into a 2nd sheet. The pivot table will have a filter field.
2. Format the column widths in that pivot table and add some conditional cell colors
Anybody know how to code this? I assume I'll need to export from access then open the excel file and use excel object model from within access?
ajw

You can certainly import Access tables into Excel:
http://www.erlandsendata.no/english/index.php?d=envbadacimportado
http://www.erlandsendata.no/english/index.php?d=envbadacimportdao
http://www.erlandsendata.no/english/index.php?d=envbadacrs2ws
See this too.
http://www.accessmvp.com/KDSnell/EXCEL_Export.htm#WriteRstFile
http://www.accessmvp.com/KDSnell/EXCEL_Export.htm#ExpCopyFromRst
That's just several similar, but slightly different, ways to do the same thing. Once your data is in Excel, turn on the Macro Recorder and run through the steps you need to do, to get the Pivot Table the way you want it, then turn off the Macro Recorder
and view the code.
You will almost certainly need to make some modifications to the recorded code, because everything will be fixed (hard-coded). Post back with additional questions, or start a new thread, to see how to make the next part(s) work. Just get comfortable
with the first part(s) for now.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

How to retrieve workbook's "Last Refreshed" value using VBA?

Does anyone know how to retrieve a BEx workbook's "Last Refreshed" value using VBA?
What I've done is expand upon a colleague's existing Excel VBA solution to automatically log into SAP BEx and batch process (and also schedule) the running of multiple BEx reports. As each BEx report in the queue is processed, the results of the run are written to a "Results" worksheet -- indicating whether that BEx report was processed successfully or not. I'm pretty much done, and everything works like a charm.
Except I have one little problem remaining: during the processing of each BEx report, the SAP BEx status dialog appears, giving the user the ability to cancel the processing of that particular report, if they so desire. If the user cancels, I want my "Results" worksheet to indicate that for that report.
At first, I thought, okay, I'll just test the return value when calling the SAPBEX.XLA's SAPBEXrefresh function. That function's return value is supposed to return the number of errors that occurred after each time SAPBEXrefresh is fired -- normally it's 0 if everything runs okay. So surely, if the user cancels, there's got to be some sort of error and the return value of SAPBEXrefresh would be > 0, right? Nope, no such luck!
Which brings me back to my question in this post -- I found out through my company's SAP consultant that, if the user hits cancel in the SAP BEx dialog, the "Last Refreshed" value will not change. Therefore, he told me, simply test the value of the "Last Refreshed" value before and after each BEx reports' run. If the "Last Refreshed" value doesn't change, then presto, you know the user canceled.
This is where I'm stuck. How do you programmatically get the "Last Refreshed" value? Obviously, you could write VBA code to find the first cell in the BEx report with the text "Last Refreshed" and then get the value in the adjoining cell. The problem with that is, what if, for some stupid reason, there's another cell somewhere in the BEx report with the text, "Last Refreshed". There's no way I can be sure that I've really found the "Last Refreshed" value plugged in by BEx.
I've been looking extensively in this forum for an answer, but haven't found any. It seems like there are a lot of SAP BEx experts here, and if anyone can help me out here, I would greatly appreciate it.
Thank you.

Well, it was a little circuitous, but I figured out the solution to my own question.
I recalled I had read about the sapbexDebugPrint macro in sapbex.xla in one of Peter Knoer's posts in this forum. So I thought, maybe I can use that to get the before and after refresh values of "Last Refreshed" in the workbook. Well, I was half-right: I could only use sapbexDebugPrint to get the workbook's after-refresh values of "Last Refreshed".
But it didn't matter!
As long as the after-refresh value of the workbook's "Last Refreshed" value was later than the after-refresh value of the previous workbook in the processing queue, I knew the refresh was successful and the user didn't cancel. There were some other logic permutations I had to factor in, but basically that was the answer.
Here are snippets of my code from the main procedure, for anyone's who interested:
            '   **** Refresh query ************************************
            ' Get the previous "Last Refreshed" value
            ' We're going to need to compare this to the "Last Refreshed" value
            ' after running SAPBEXrefresh function to trap the possibility of
            ' the user canceling via the SAPBEx status dialog box
            PrevLastRefr = GetLastRefreshed()
            ' Reactivate the source workbook, just in case
            SourceWorkbook.Activate
             RefreshRetVal% = Application.Run("SAPBEX.XLA!SAPBEXrefresh", True, , False)
            If RefreshRetVal% <> 0 Then
                blnProcessingErr = True
            End If
            ' Get the current "Last Refreshed" value and compare it to the previous value
            CurrLastRefr = GetLastRefreshed()
            If CurrLastRefr = "NOT FOUND" Then
                ' Refresh canceled
                blnProcessingCanceled = True
            Else    ' We found a valid current "Last Refreshed" value
                If PrevLastRefr = "NOT FOUND" Then
                    ' Refresh okay
                    blnProcessingCanceled = False
                Else
                    If CDate(CurrLastRefr) > CDate(PrevLastRefr) Then
                        ' Current "Last Refreshed" value is later than previous value,
                        ' so refresh okay
                        blnProcessingCanceled = False
                    Else
                        ' Refresh canceled
                        blnProcessingCanceled = True
                    End If
                End If
            End If
            ' Reactivate the source workbook, just in case
            SourceWorkbook.Activate
And here's my function which retrieves the "Last Refreshed" value by calling sapbexDebugPrint macro in sapbex.xla:
Function GetLastRefreshed() As Variant
' Get the SAP BEx "Last Refreshed" value by calling
' SAPBEx.xla's sapbexDebugPrint procedure and creating
' the special diagnostic workbook.
On Error GoTo GetLastRefreshed_Error
    Dim TextCell As Range
    Dim TextCellAddr$
    Dim TextCellRow%, TextCellCol%
    Dim LastRefreshedVal As Variant
    Dim NumWorkbooks%
    ' Initialize
    GetLastRefreshed = "NOT FOUND"
    LastRefreshedVal = "NOT FOUND"
    ' Turn off screen updating until the end
    Application.ScreenUpdating = False
    ' Get the number of currently open workbooks
    NumWorkbooks% = Workbooks.Count
    ' Call the SAPBEx.xla's sapbexDebugPrint procedure
    ' This'll create a diagnostic workbook with all the information
    ' about the BEx query that was previously refreshed
    Application.Run "SAPBEX.XLA!sapbexDebugPrint"
    ' Let's double-check that the diagnostic workbook actually
    ' got created
    ' If there's any error at this point or if the number of workbooks
    ' isn't more than it was a moment ago, raise custom error
    If (Err.Number <> 0) Or (Not (Workbooks.Count > NumWorkbooks%)) Then
        Err.Raise vbObjectError + 513, , "sapbexDebugPrint failed to create the diagnostic workbook"
    End If
    ' We'll need to look at a worksheet named "E_T_TXT_SYMBOLS"
    ' in the diagnostic workbook
    ' If this worksheet doesn't exist, then we know that there
    ' was no previously refreshed query during this session
    ' (We could loop through the collection of worksheets in the workbook
    ' to see if that worksheet actually exists, but we'll use
    ' error handling to deal with this instead)
    ' Find the first cell in the "E_T_TXT_SYMBOLS" worksheet
    ' with the text "Last Refreshed"
    ' (If the worksheet doesn't exist, an error will be thrown...)
    Set TextCell = Sheets("E_T_TXT_SYMBOLS").Cells.Find(What:="Last Refreshed", _
                LookIn:=xlValues)
    If TextCell Is Nothing Then
        ' Can't find the cell, so we know the user had canceled during previous refresh
        LastRefreshedVal = "NOT FOUND"
    Else
        ' Found the cell, now we're in business
        TextCellAddr$ = TextCell.Address ' $F$11
        TextCellRow% = CInt(Mid(TextCellAddr$, InStr(2, TextCellAddr$, "$") + 1))
        TextCellCol% = ColRef2ColNo(Mid(TextCellAddr$, 2, InStr(2, TextCellAddr$, "$") - 2))
        ' The cell with the "Last Refreshed" value is going to be 2 columns to the right
        LastRefreshedVal = Sheets("E_T_TXT_SYMBOLS").Cells(TextCellRow%, TextCellCol%).Offset(0, 2).Value
        ' Ensure the "Last Refreshed" value is a valid date/time
        If Not IsDate(LastRefreshedVal) Then LastRefreshedVal = "NOT FOUND"
    End If
GetLastRefreshed_Exit:
    ' Err.Number -2147220991 is my custom raised error:
    ' "sapbexDebugPrint failed to create the diagnostic workbook"
    If Err.Number <> -2147220991 Then
        ' Close the diagnostic workbook and return Last Refreshed value
        Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False
        GetLastRefreshed = LastRefreshedVal
    End If
    Application.ScreenUpdating = True   ' Turn on screen updating
    Exit Function
GetLastRefreshed_Error:
    Select Case Err.Number
        Case 9 ' Subscript out of range (which means "E_T_TXT_SYMBOLS" worksheet doesn't exist)
            LastRefreshedVal = "NOT FOUND"
        Case Else
            MsgBox "Error encountered during getting Last Refreshed value." & vbCrLf & vbCrLf & _
           "Error: " & Err.Number & " - " & Err.Description, vbExclamation, gstrErrBoxTitle
    End Select
    Resume GetLastRefreshed_Exit
End Function
Like I said, the solution was a little circuitous, but it works!

How to use the RateEntity dimension in SAP BPC?

Hello everbody,
I am implementing a consolidation process using SAP BPC. I want to use the RateEntity dimension, to translate a same currency into different exchange rates depending on the company.
I want the company which ID is GFU (which is from Brazil) in LegalEntity dimension is converted using a special exchange rate. I have added a GFU member in RateEntity dimension, and I have entered the exchange rates for the member GFU and for the member Global in RateEntity dimension.
But the problem is that after I run the FX Restatement package, converted data for this company is not the proper one, because Global exchange rates have been used instead of GFU exchange rates. Does anybody know why? Do I have to do anything else?
Thank you very much for your time

Do you see the search functionality in the upper left of the screen?
Okay, now type in ecatt, press enter and in the next screen filter on blogs.

Using VBA to generate varibale worksheets in BEx Report

Hi Gurus,
i got an BEx Analyzer report (BW 3.5) in Excel. It shows all orders generated by the customers. In the table we can see the customer number, customer name, some attributes and the sales key figures.
For Example:
10000, Peter, ..................., 20 EUR
10023, Clark, ..................., 20 EUR
12200, Bert, ..................., 20 EUR
13200, Erny, ..................., 20 EUR
etc.
Now i want that Excel takes each customer number and creates a new worksheets - each with the customer number in it / or name. As the number of customers is different each week it should be flexible. Any idea with VBA? I know that i can place in SAPBExonrefresh some coding.
Regards,
Memoli

Hi Memoli,
i think i now what you want. Use the following code but check the steps:
1. Run your query in Analyzer.
2. Move result area to top left but hide alle headers, texts, free characteristics etc. Only the table should be available - that with customer and data fields. Better change to table view in query designer or local view.
2. Your query should start in field A1 or A2. If you want leave a header ampty on top and write customer number in this field - in this case your table starts in A2.
3. Delete all worksheets and leave the one with the query. Name it "Customer".
4. Insert a button by using VBA toolbar. Doubleclick and paste following code in editor:
Sub TabAnlegen()
   Dim wks As Worksheet
   Dim iRow As Integer
   Application.ScreenUpdating = False
   Set wks = Worksheets("Customer")
   iRow = 2
   Do Until IsEmpty(wks.Cells(iRow, 1))
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = wks.Cells(iRow, 1).Value
      iRow = iRow + 1
   Loop
   wks.Select
   Application.ScreenUpdating = True
End Sub
After that. Run your query and press the button.
Regards,
Adem

[b]Tutorial:[/b] Simplify Developing OLE Automation Code Using VBA

INTRODUCTION
Automating Office applications from Oracle Forms can be a tedious, frustrating, and time-consuming process. Because the OLE2 and CLIENT_OLE2 built-ins do not validate the automation commands that they relay, code that compiles without errors often dies at runtime with a not-so-helpful error code. This tutorial will demonstrate how to simplify the development of automation code using a tool that ships with all Microsoft Office editions -- the Visual Basic for Applications (VBA) IDE.
The VBA IDE, a core Office component, is a full-fledged development environment featuring code completion, basic syntax highlighting, context-driven help and a runtime debugger. Its Object Browser provides a convenient means of browsing the Word object model, as well as searching by keyword.
For those who may not interested in following this tutorial in detail, I would like to stress the usefulness of the Object Browser as a tool for inspecting the functions supported by OLE server applications and, perhaps more importantly, valid values for function arguments. Whether/not anyone buys the assertion that starting with VBA prototypes is far more productive than pounding out OLE2 code from the very start, they will find the Object Browser invaluable as a reference -- I rely on it exclusively for this sort of documentation.
A BRIEF INTRODUCTION TO THE VBA IDE & THE OBJECT BROWSER UTILITY
Try this:
1. Open Word
2. Launch the VBA IDE by pressing <Alt><F11>
3. Open the Object Browser by pressing <F2>
The Object Browser allows you to visually navigate Word's class hierarchy. Its user interface is a bit crowded, so controls are unlabeled. Hovering the mouse cursor above a control will display a tooltip explaining that control's purpose. The browser's scope can be narrowed by using the Project/Library combo. Typing a keyword or substring in the Search Text combo and clicking on the Search button will cause all classes/members whose name contains the specified search text to be listed in the Search Results pane. Selecting an item from this list will update the two panes below it, showing the selected class, and its members. Beneath the Classes and Members panes is an untitled pane, gray in color, which displays details for the selected class/member, including hyperlinks to relevant information such as arguments, their types and allowable values. If Visual Basic Help is installed, pressing <F1> will display help on a selected class/member. (This feature can be installed from your Office install CD, if necessary.)
NOTE: While it is possible to cut-and-paste the code examples that follow, I highly recommend that they be typed in by hand. Doing so will provide a better understanding of how the IDE's code completion behaves. Use code completion most efficiently by not using the mouse or <Enter> key when selecting from completion lists. Instead, just type enough letters to select the desired list element, then continue along as if you had typed the entire element, typing the next operator in your statement. It really is slick!
HELLO WORLD - VBA-STYLE
1. Open Word
2. Launch the VBA IDE by pressing <Alt><F11>
3. Select Module from the Insert menu.
4. In the blank area that appears, enter the following code:
Public Sub HelloWorld()
      Documents.Add
      Selection.TypeText ("Hello, world!")
End Sub5. Press <F5> to run the code.
If you switch back to Word by pressing <Alt><F11>, there should appear a newly-created document containing the text Hello, world!.
A MORE AMBITIOUS EXAMPLE
In this example, we will launch Word, type some text, and alter its formatting. For the purposes of this tutorial, consider it the process we wish to automate from within Forms.
1. If Word is running, close it.
2. Open any Office application except Word, such as Excel, Outlook or PowerPoint
3. Launch the VBA IDE by pressing <Alt><F11>.
4. Select References from the Tools menu -- a dialog should pop up.
5. From within this dialog, locate and select Microsoft Word <version> Object Library, then click OK.
6. Select Module from the Insert menu.
7. In the blank area that appears, enter the following code:
Public Sub LaunchWord()
    Dim app As Word.Application
    Set app = CreateObject("Word.Application")
    app.Visible = True                          '!!! IMPORTANT !!!
    app.Documents.Add
    With app.Selection
        .TypeText "This is paragraph 1."
        .TypeParagraph
        .TypeText "This is paragraph 2."
        .TypeParagraph
        .TypeText "This is paragraph 3."
    End With
    With ActiveDocument
        .Paragraphs(1).Range.Words(3).Bold = True
        .Paragraphs(2).Range.Words(3).Italic = True
        .Paragraphs(3).Range.Words(3).Underline = True
    End With
End Sub8. Press <F5> to run the code.
A new Word session should have been launched. Switch to it, to view the results of our handiwork!
TAILORING VBA CODE INTENDED FOR OLE2 CONVERSION
Now, things get a bit uglier. The code listed above gives a good idea of how concise VBA code can be, but With blocks and chained object references do not translate readily into OLE2 code. Here's the same process, rewritten in a more OLE2-friendly style. Note the numerous intermediate object references that have been declared.
Public Sub LaunchWord()
    Dim app As Word.Application
    Dim doc As Word.Document
    Dim docs As Word.Documents
    Dim pars As Word.Paragraphs
    Dim par As Word.Paragraph
    Dim wrds As Word.Words
    Dim sel As Word.Selection
    Dim rng As Word.Range
    Set app = CreateObject("Word.Application")
    app.Visible = True                          '!!! IMPORTANT !!!
    Set doc = app.Documents.Add
    Set sel = app.Selection
    sel.TypeText "This is paragraph 1."
    sel.TypeParagraph
    sel.TypeText "This is paragraph 2."
    sel.TypeParagraph
    sel.TypeText "This is paragraph 3."
    Set pars = doc.Paragraphs
    'select third word of first paragraph and make it bold
    Set par = pars.Item(1)
    Set rng = par.Range
    Set wrds = rng.Words
    Set rng = wrds.Item(3)
    rng.Bold = True
    'select third word of second paragraph and italicize it
    Set par = pars.Item(2)
    Set rng = par.Range
    Set wrds = rng.Words
    Set rng = wrds.Item(3)
    rng.Italic = True
    'select third word of second paragraph and underline it
    Set par = pars.Item(3)
    Set rng = par.Range
    Set wrds = rng.Words
    Set rng = wrds.Item(3)
    rng.Underline = True
End Sub
TRANSFORMATION: CONVERTING VBA CODE INTO PL/SQL
Here is the PL/SQL counterpart to our previous VBA routine. Compare printouts of the two and note their similarities. Notice the need for argument lists -- this causes the code to fluff up quite a bit, and really interferes with readability.
PROCEDURE LAUNCH_WORD IS
v_app OLE2.OBJ_TYPE;     -- Application
v_doc OLE2.OBJ_TYPE;     -- Document
v_docs OLE2.OBJ_TYPE;    -- Documents collection
v_pars OLE2.OBJ_TYPE;    -- Paragraphs collection
v_par OLE2.OBJ_TYPE;     -- Paragraph
v_wrds OLE2.OBJ_TYPE;    -- Words collection
v_sel OLE2.OBJ_TYPE;     -- Selection
v_rng OLE2.OBJ_TYPE;     -- Range
v_args OLE2.LIST_TYPE;   -- OLE2 argument list
BEGIN
/* launch Word and MAKE IT VISIBLE!!! */
    v_app := OLE2.CREATE_OBJ('Word.Application');
    OLE2.SET_PROPERTY(v_app, 'Visible', TRUE);
/* initialize key object references */
    v_docs := OLE2.GET_OBJ_PROPERTY(v_app, 'Documents');
    v_doc := OLE2.INVOKE_OBJ(v_docs, 'Add');
    v_sel := OLE2.GET_OBJ_PROPERTY(v_app, 'Selection');
/* type first paragraph */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 'This is paragraph 1.');
    OLE2.INVOKE(v_sel, 'TypeText', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    OLE2.INVOKE(v_sel, 'TypeParagraph');
/* type second paragraph */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 'This is paragraph 2.');
    OLE2.INVOKE(v_sel, 'TypeText', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    OLE2.INVOKE(v_sel, 'TypeParagraph');
/* type third paragraph */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 'This is paragraph 3.');
    OLE2.INVOKE(v_sel, 'TypeText', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
/* set reference to Paragraphs collection */
    v_pars := OLE2.GET_OBJ_PROPERTY(v_doc, 'Paragraphs');
/* select third word of first paragraph and make it bold */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 1);
    v_par := OLE2.INVOKE_OBJ(v_pars, 'Item', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    v_rng := OLE2.GET_OBJ_PROPERTY(v_par, 'Range');
    v_wrds := OLE2.GET_OBJ_PROPERTY(v_rng, 'Words');
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 3);
    v_rng := OLE2.INVOKE_OBJ(v_wrds, 'Item', v_args);
    OLE2.SET_PROPERTY(v_rng, 'Bold', TRUE);
/* select third word of second paragraph and italicize it */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 2);
    v_par := OLE2.INVOKE_OBJ(v_pars, 'Item', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    v_rng := OLE2.GET_OBJ_PROPERTY(v_par, 'Range');
    v_wrds := OLE2.GET_OBJ_PROPERTY(v_rng, 'Words');
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 3);
    v_rng := OLE2.INVOKE_OBJ(v_wrds, 'Item', v_args);
    OLE2.SET_PROPERTY(v_rng, 'Italic', TRUE);
/* select third word of second paragraph and underline it */
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 3);
    v_par := OLE2.INVOKE_OBJ(v_pars, 'Item', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    v_rng := OLE2.GET_OBJ_PROPERTY(v_par, 'Range');
    v_wrds := OLE2.GET_OBJ_PROPERTY(v_rng, 'Words');
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, 3);
    v_rng := OLE2.INVOKE_OBJ(v_wrds, 'Item', v_args);
    OLE2.SET_PROPERTY(v_rng, 'Underline', TRUE);
END;
REFACTORING FOR REUSABILITY AND READABILITY
While the previous procedure runs without errors, it suffers from poor readability which, in turn, makes it difficult to maintain. Here, we address those issues by moving repetetive low-level operations into separate procedures.
PROCEDURE LAUNCH_WORD IS
    v_app OLE2.OBJ_TYPE;    -- Application
    v_doc OLE2.OBJ_TYPE;    -- Document
    v_docs OLE2.OBJ_TYPE;   -- Documents collection
    v_sel OLE2.OBJ_TYPE;    -- Selection
    v_args OLE2.LIST_TYPE; -- OLE2 argument list
BEGIN
    /* launch Word and MAKE IT VISIBLE!!! */
      v_app := OLE2.CREATE_OBJ('Word.Application');
      OLE2.SET_PROPERTY(v_app, 'Visible', TRUE);
    /* create a new Word document */
      v_docs := OLE2.GET_OBJ_PROPERTY(v_app, 'Documents');
      v_doc := OLE2.INVOKE_OBJ(v_docs, 'Add');
      v_sel := OLE2.GET_OBJ_PROPERTY(v_app, 'Selection');
    /* add a few paragraphs */
      PRINT_PARAGRAPH(v_sel, 'This is paragraph 1.');
      PRINT_PARAGRAPH(v_sel, 'This is paragraph 2.');
      PRINT_PARAGRAPH(v_sel, 'This is paragraph 3.');
    /* apply formatting */
      APPLY_FORMATTING(v_doc, 1, 3, 'Bold', TRUE);
      APPLY_FORMATTING(v_doc, 2, 3, 'Italic', TRUE);
      APPLY_FORMATTING(v_doc, 3, 3, 'Underline', TRUE);
END;
PROCEDURE APPLY_FORMATTING(
    v_doc OLE2.OBJ_TYPE,
    v_paragraph_num NUMBER,
    v_word_num NUMBER,
    v_attribute VARCHAR2,
    v_value BOOLEAN) IS
    v_pars OLE2.OBJ_TYPE;   -- Paragraphs collection
    v_par OLE2.OBJ_TYPE;    -- Paragraph
    v_wrds OLE2.OBJ_TYPE;   -- Words collection
    v_rng OLE2.OBJ_TYPE;    -- Range
    v_args OLE2.LIST_TYPE; -- OLE2 argument list
BEGIN
    /* set reference to Paragraphs collection */
      v_pars := OLE2.GET_OBJ_PROPERTY(v_doc, 'Paragraphs');
    /* get specified paragraph */
      v_args := OLE2.CREATE_ARGLIST;
      OLE2.ADD_ARG(v_args, v_paragraph_num);
      v_par := OLE2.INVOKE_OBJ(v_pars, 'Item', v_args);
      OLE2.DESTROY_ARGLIST(v_args);
    /* get words for specified paragraph */
      v_rng := OLE2.GET_OBJ_PROPERTY(v_par, 'Range');
      v_wrds := OLE2.GET_OBJ_PROPERTY(v_rng, 'Words');
    /* apply formatting to word found at specified index */
      v_args := OLE2.CREATE_ARGLIST;
      OLE2.ADD_ARG(v_args, v_word_num);
      v_rng := OLE2.INVOKE_OBJ(v_wrds, 'Item', v_args);
      OLE2.SET_PROPERTY(v_rng, v_attribute, v_value);
END;
PROCEDURE PRINT_PARAGRAPH(v_sel OLE2.OBJ_TYPE, v_text VARCHAR2) IS
    v_args OLE2.LIST_TYPE;
BEGIN
    v_args := OLE2.CREATE_ARGLIST;
    OLE2.ADD_ARG(v_args, v_text);
    OLE2.INVOKE(v_sel, 'TypeText', v_args);
    OLE2.DESTROY_ARGLIST(v_args);
    OLE2.INVOKE(v_sel, 'TypeParagraph');
END;
CONCLUSION
It is my hope that this tutorial, despite it's introductory nature, has demonstrated the value of the VBA IDE, the ease with which automation processes can be prototyped using VBA, the noticeable similarity between VBA automation routines and their Forms PL/SQL counterparts, and the advantages of testing automation processes within the VBA IDE. Please feel free to follow up with any specific questions or concerns you may have.
Thanks,
Eric Adamson
Lansing, Michigan
FINAL NOTE: These examples use the OLE2 built-in, and will operate correctly when called from forms running in the Form Builder OC4J. Deploying them to an Oracle Application Server will launch Word on the server itself (if available), which is usually not the developer's intent! Automating Word client-side via web forms requires adding WebUtil support. Adapting the code for WebUtil is trivial -- just replace all instances of OLE2 with CLIENT_OLE2. Adapting forms for WebUtil and configuring OLE support into your Oracle Application Server, however, are beyond the scope of this tutorial.
REVISION HISTORY
This promises to be something of a 'living document'. I've snuck changes through without comment in the past, but in the future, I'll try to document significant changes here.
2006-08-21
  * Prefaced boring subject line with text: 'Tutorial:' to clarify purpose
  * Added emphasis on value of Object Browser as a reference

Thanks James, for your kind words. I do hope this information will help folks out. I honestly believe that tinkering around in the VBA IDE will prove highly gratifying for automation developers. It can be assured that learning to make Word jump through hoops is much more straight-forward in this environment. I'm not one for mottos, but if I were pressed for a cheesy motto, I would say: First, make it work. Then, make it work in Oracle!
Once the idea has sunk in, that Visual Basic routines for automating Word are exact analogs to their OLE2 counterparts, we can remove keywords like Oracle and PL/SQL from our Google searches on Word automation which, at least in this context, are the proverbial kiss of death. Suddenly we find ourselves liberated by the possibility of steal-, ahem... borrowing ideas from the Visual Basic* community!
As for links, my link of choice is invariably http://groups.google.com -- if you don't already use it at least ten times a day, you must try it. This is the venerable USENET archive, including the holdings of now-extinct DejaNews. Another possible site of interest is http://word.mvps.org/FAQs/MacrosVBA, which may serve as a good starting point for those who wish to learn how to do fancy tricks with Word using VBA.
If these links don't prove immediately helpful, please feel free to give specifics on the sort of operations you are interested in automating, and I'll see if I can post an example that addresses it.
Regards,
Eric Adamson
Lansing, Michigan
PS: I do hope, as people read my posts, with every other acronym being VBA, that they are not mistakenly hearing a call to learn Visual Basic. I say this, not because I believe learning VB would be a Bad Thing, but because I assume that few of us feel we have the time to learn a new programming language. Despite having come to the Oracle camp already knowing VB/VBA, and having acquired a fair bit of experience with automating Office applications as an Access developer, I remain confident that what I am suggesting people attempt does not rise to the level of learning a language. What I am suggesting is that they learn enough of the language to get by.
*VB vs. VBA
Just a quick word on this, as readers may wonder why I seem to use these terms interchangeably. Visual Basic (VB) can refer to either a development platform or a programming language. Visual Basic for Applications (VBA) is a language -- more precisely, it is a subset of the Visual Basic language. One purchases VB, usually quite intentionally. VBA is included with Microsoft Office, as is VBA's development environment, the VBA IDE. The key distinction between VB and VBA is that VBA cannot be used to create self-contained executables. Rather, VBA relies on VBA-enabled applications, such as Microsoft Office applications, to serve as a container for VBA code, and to provide a runtime environment for that code. For the purposes of discussing OLE Automation, VB and VBA are quite interchangeable.

How can I export multiple PDF fillable forms into a spreadsheet (Excel) using VBA?

Hi guys,
I never used VBA with with Adobe Acrobat. I would like a tip to start doing that. What I would like to do know is:
1 - I have multiple PDF Forms that are filled.
2 - I want all the data from those forms to be exported to Excel via VBA code.
3 - Adobe Acrobat already have an option to do that manually (Forms > Merge Data Files Into Spreadsheet) and it works perfectly.
4 - I would like to access that feature using VBA, then generate a spreadsheet.
Any tips? How can I start?
Thanks!

A good place to start is Karl Heinz Kremer's blog, where he has a few examples:
http://khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/

Using VBA in dimension sheets

Similar Messages

Maybe you are looking for