Sorting a range in Excel (from MS Project) using VBA

Hi All
I have a piece of code that exports data from MS Project to Excel and formats it in a particular way. It all works fine, however I now need to sort the data by a second key and I cant find the solution or work it out. Here is the piece of code
I need adding a second key to:
'Sort by Workstream Area
Set objRange = xlApp.ActiveWorkbook.Worksheets("Sheet1").Range("A3:F500")
objRange.Sort Key1:=objRange.Parent.Range("A3")
I need to sort by Column A and then by Column D.
Any help/advice appredciated.
Kind regards
Tony
TKHussar

Hi All
I have managed to sort my issue. I changed my code to:
'Sort by Workstream Area
Set objRange = xlApp.ActiveWorkbook.Worksheets("Sheet1").Range("A3:F2000")
objRange.Sort Key1:=objRange.Parent.Range("A3"), Key2:=objRange.Parent.Range("D3")
And it worked fine.
Thanks all for looking.
TKHussar

Similar Messages

Help! how to create an outbound delivery from a project using a FM/BAPI?

Hi,
I need help to find a BAPI or FM which can be used to create an outbound delivery from a project similar to tcode CNS0?
The following data will be used in creating the outbound delivery from a project:
Project definition
WBS Element
Network
Shipping Point
Ship_To_Party
Plant
Storage Location
Planned Goods Movement Date
Delivery Type : LP
Sales Organization
Distribution Channel
Division
Item Number
Please help me find the appropriate BAPI or FM to create the delivery from project.
Any help on this would be greatly appreciated.
Thank you.
with regards,
Muthu Ganapathy.

Hi Ferry Lianto,
Thank you for your response. Do you have a sample code to call this FM? Or can you please provide me what all parameters I need to pass to create delivery from project? My input parameters are as given below:
Project definition
WBS Element
Network
Shipping Point
Ship_To_Party
Plant
Storage Location
Planned Goods Movement Date
Delivery Type : LP
Sales Organization
Distribution Channel
Division
Item Number
Please help me on this.
Thank you.
with regards,
Muthu Ganapathy.

Can we get the code from the project using OER

Hi,
i have some question about the OER (Oracle Enterprise Repository).
when we register an artifact in OER (say wsdl file) then is there any way to get all the project code when user download the artifact.
currentely i register one wsdl file from my OSB project in OER.
now when i download the artifact i will get only that wsdl file.
if i want to get all the code related to that wsdl how can i able to get that ?
or OER is nothing but only the catalogue from where you only know which services are available for you ?
and for using that services you manually need to download and deploy that services.
please help me on this,
regards,

OER provides a channel for the automated exchange of metadata and service information between service consumers and providers. Means, it provides details about services and its consumers. You cannot download all assets(code) using one file say wsdl in your case.

Upload Excel File to SharePoint using VBA

Hi,
I copied and modified the code from a friend which he got it from this website forum.
This apprantely works for some people and not me. Please tell me what I am doing wrong.
Ignore xxxxxx part of the Sharepoint site. Nothing wrong with the site, i tried many combinations, but I get not response, not even an error.
Public Const HR_URL = "http://sun.xxxxxx.com/eng/st/Lists/Database%20Change% 20Request"
Sub test()
'Upload new Excel sheet to SharePoint
Call copyToSharePoint(HR_URL, ThisWorkbook.FullName)
End Sub
'''''''code block from Forum
Public Sub copyToSharePoint(sharepointURL As String, filePath As String)
'On Error GoTo errhandler
'sharePointUrl should not end in a "/"
'Initialize Variables
Dim LlFileLength As Long
Dim Lvarbin() As Byte
Dim LobjXML As Object
Dim LvarBinData As Variant
Dim LstrFileName As String, PstrFullfileName As String, PstrTargetURL As String
Dim fileName As String, lenFileName As Long
'Extract file name
lenFileName = Len(filePath) - InStrRev(filePath, "\")
fileName = Right(filePath, lenFileName)
'Check that the webUrl ends in an "/"
If Right(sharepointURL, 1) <> "/" Then
sharepointURL = sharepointURL & "/"
End If
'**************************** Upload binary files *****************
Set LobjXML = CreateObject("Microsoft.XMLHTTP")
PstrFullfileName = filePath
LlFileLength = FileLen(PstrFullfileName) - 1
' Read the file into a byte array.
ReDim Lvarbin(LlFileLength)
Open PstrFullfileName For Binary As #1
Get #1, , Lvarbin
Close #1
' Convert to variant to PUT.
LvarBinData = Lvarbin
PstrTargetURL = sharepointURL & fileName
' Put the data to the server; false means synchronous.
LobjXML.Open "PUT", PstrTargetURL, False
' Send the file in.
LobjXML.Send LvarBinData
Set LobjXML = Nothing
Exit Sub
errhandler:
If Err.Number = 53 Then
MsgBox "Excel was unable to create the HR file to submit to SharePoint. " & vbNewLine & _
"Please check that you are not running out of disk space and that no MS Office add-in is causing issues with Excel.", vbCritical, "File Error"
Exit Sub
Else
MsgBox "Your HR could not be submitted to SharePoint. The following error occurred:" & vbNewLine & _
"Error " & Err.Number & ": " & Err.Description, vbCritical, "Error Uploading to SharePoint"
Exit Sub
End If
End Sub

I have made the following code work successfully on a Windows 8 machine with the VBA executing from an Excel 2010 file and the file you want to upload going to a SharePoint 2010 site. If you don't need to use SP content types then simply
take that out of the code. Also, pay attention to the FieldInformation as the Field Display names and Field Internal names can sometimes be different. Cheers.
Public Sub copyDocToSP()
Const strLocalFile = "C:\temp\myLocalFile.pdf"
Const spBASE_URL = "https://thesharepointdomian/sites/yoursite/"
Const spDOC_LIB = "Your SP Doc Library Name"
Const spFILE_NAME = "FileNameOnceOnSharepoint.pdf"
Const spCONTENT_TYPE = "0x000000000000000000000000000000000000000"
Set ObjectStream = CreateObject("ADODB.Stream")
Set ObjectDOM = CreateObject("Microsoft.XMLDOM")
Set ObjectElement = ObjectDOM.createElement("TMP")
Set ObjectHTTP = CreateObject("Microsoft.XMLHTTP")
'Reading binary file
ObjectStream.Open
ObjectStream.Type = 1 'Type Binary
ObjectStream.LoadFromFile (strLocalFile)
BinaryFile = ObjectStream.Read()
ObjectStream.Close
'Conversion Base64
ObjectElement.DataType = "bin.base64" 'Type Base64
ObjectElement.nodeTypedValue = BinaryFile
EncodedFile = ObjectElement.Text
'Build request to load document
strURLService = spBASE_URL + "_vti_bin/copy.asmx"
strSOAPAction = "http://schemas.microsoft.com/sharepoint/soap/CopyIntoItems"
strSOAPCommand = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
"<soap:Body>" & _
"<CopyIntoItems xmlns='http://schemas.microsoft.com/sharepoint/soap/'>" & _
"<SourceUrl>" + strLocalFile + "</SourceUrl>" & _
"<DestinationUrls>" & _
"<string>" + spBASE_URL + spDOC_LIB + "/" + spFILE_NAME + "</string>" & _
"</DestinationUrls>" & _
"<Fields>" & _
"<FieldInformation Type='Text' InternalName='Title' DisplayName='Title' Value='this is the title value' />" & _
"<FieldInformation Type='Choice' InternalName='Our_x0020_Status' DisplayName='Our Document Status' Value='Ready-to-distribute' />" & _
"<FieldInformation Type='Text' InternalName='ContentTypeId' DisplayName='Content Type ID' Value='" + spCONTENT_TYPE + "' />" & _
"</Fields>" & _
"<Stream>" + EncodedFile + "</Stream>" & _
"</CopyIntoItems>" & _
"</soap:Body>" & _
"</soap:Envelope>"
ObjectHTTP.Open "Get", strURLService, False
ObjectHTTP.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
ObjectHTTP.SetRequestHeader "SOAPAction", strSOAPAction
ObjectHTTP.Send strSOAPCommand
MsgBox (ObjectHTTP.responseText)
End Sub

Select a range from the Project window in iMovie 10.0.3

In iMovie 10.0.3, I can no longer select a range of frames from the Project window; when I left click, the whole clip highlights yellow. I can still shorten the clip from the ends, but not select any range within the clip. What gives? Thank you.

GOOD GRIEF! That did it, THANK YOU! I wonder why they added this 2 second delay in the current version... regardless, THANK YOU SO MUCH!

How to read and write data from Excel to TestStand without using LabVIEW VIs

Hi,
How can I read in columns of data from Excel into a TestStand array and write columns of data to Excel from TestStand without using LabVIEW VIs?
I don't think the Property Loader custom step type in TestStand will work because the data I would like to read in from Excel is in a column that is thousands of rows long and the data has to be in the proper format to use the Property Loader to load in an array from Excel.
Thanks for your help.

That example does not use LabVIEW and it does about 40% of what you need to do by calling Excel through ActiveX. If you don't know how to use Excel through ActiveX then you'll need to brush up on that.
http://www.microsoft.com/en-us/download/details.aspx?id=16250
http://support.microsoft.com/kb/141759
http://support.microsoft.com/kb/302084
CTA, CLA, MTFBWY

Import data to excel from resultset

Hi,
is there any possibility to import datas to excel from the resultset using java

With Apache POI (and other libraries) you can produce Excel files, if it is your question.
This was discussed zillion times...
CSV is a textual format that Excel can read in.

How to get active user data using vba code in excel

Start with this script: http://community.spiceworks.com/scripts/show/1572-list-user-info-in-excel
Then add an extra line to get the msDS-UserAccountDisabled attribute, or test for it in an If/Else block.

Could you please help me to get only active user details from active directory using vba code.
Any help would be immensely appreciated.
Thanks in advance
This topic first appeared in the Spiceworks Community

Create a macro in Excel to capture Data from MS Project

We have a standard reporting tool which presents data in the format that our Head Office require. I currently copy/paste data from MS Project into the Excel spreadsheet however I would prefer to set up a macro in the Excel work to get the data from
the MS Project file however the macro only seems to pick up from the "paste" command.
Is it possible to set up a macro in Excel to copy data from MS Project?
M.L. Pate

Yes, it is possible through VBA coding. Here is a simple:
http://stackoverflow.com/questions/9347874/how-to-copy-data-from-mpp-file-to-excel-using-macro
If you have programming/Code related questions, please post your question to the forum for Excel developer
http://social.msdn.microsoft.com/Forums/en-US/exceldev
Tony Chen
TechNet Community Support

Cutting and pasting tables from one project to another

When cutting and pasting existing tables from one project to
another, the line weights for the cell borders seem to vary at
random - some are the original line weight and some are heavier
when pasted.
I've tried sorting things out with the table properties
dialogue, but to no effect.
Is there a quick fix, or am I better importing in whole
topics and then editing the imported topic?

Hi Colum/Peter,
It's not a custom table, I just need to copy an existing
table from one project to another.
My blasted developers (may the fleas of a thousand camels,
etc), just decided to change the toolbars in one of our
applications. As this toolbar appears in slightly different guises
in about 6 tabs, I was trying to update the table that shows what
icon does what and cut and paste that table into all the sub
projects I have. Each table then only needs a minor edit for a few
icons specific to that sub-project.
Peter's on the right track. When I cut and pasted the table
it also pasted in a number of lines of HTML associated with the
styles in the other project. If I delete those lines, the table
then appears as it should.
Thanks for prompt response

Project 2013 - How do you sort the list of Enterprise Templates in Project Pro?

In Project Pro 2013, click File > New > Enterprise I see the list of templates from our project server. We have a global installation with 40-50 templates. These are displayed in a random order and reading through the whole list to find the one I
want is quite tedious. Is there a way to sort this list alphabetically? Can the list be displayed as a "details" view rather than icons?

Greg --
Guillaume is totally correct. The display order of enterprise templates is by the date they were created. I have tested this on a Project Server 2013 system that has the latest Cumulative Updates applied. The problem is that in the
Microsoft Project 2013 desktop application, Microsoft has ditched the Templates dialog we used to see and replaced it with a page in the Backstage. I am afraid that in doing so, they have eliminated the sorting capabilities that we found in earlier versions.
Out of curiosity, I have sent an e-mail to my MPV contacts within the Microsoft Project Server development team at Microsoft, asking if there is any intention of changing this functionality to allow for sorting by template name. If I get an answer,
I will post it in this user forum.
Your question is a good one, and the sorting problem (or lack of sorting) can be a real problem in any organization that has a sizable number of enterprise templates. Hope this additional bit helps.
Dale A. Howard [MVP]

BAPI Access from Excel using VBA

Im writing an excel macro (VBA) to call a bapi that populates a spreadsheet.
The user will then do some manipulation of the data collected, and then it must be sent back to sap.
The Bapi in question is BAPI_GET_USER_DETAIL
*" IMPORTING
*"     VALUE(USERNAME) LIKE BAPIBNAME-BAPIBNAME
*" EXPORTING
*"     VALUE(LOGONDATA) LIKE BAPILOGOND STRUCTURE BAPILOGOND
*"     VALUE(DEFAULTS) LIKE BAPIDEFAUL STRUCTURE BAPIDEFAUL
*"     VALUE(ADDRESS) LIKE BAPIADDR3 STRUCTURE BAPIADDR3
*"     VALUE(COMPANY) LIKE BAPIUSCOMP STRUCTURE BAPIUSCOMP
*"     VALUE(SNC) LIKE BAPISNCU STRUCTURE BAPISNCU
*"     VALUE(REF_USER) LIKE BAPIREFUS STRUCTURE BAPIREFUS
*"     VALUE(ALIAS) LIKE BAPIALIAS STRUCTURE BAPIALIAS
*" TABLES
*"      PARAMETER STRUCTURE BAPIPARAM OPTIONAL
*"      PROFILES STRUCTURE BAPIPROF OPTIONAL
*"      ACTIVITYGROUPS STRUCTURE BAPIAGR OPTIONAL
*"      RETURN STRUCTURE BAPIRET2
*"      ADDTEL STRUCTURE BAPIADTEL OPTIONAL
*"      ADDFAX STRUCTURE BAPIADFAX OPTIONAL
*"      ADDTTX STRUCTURE BAPIADTTX OPTIONAL
*"      ADDTLX STRUCTURE BAPIADTLX OPTIONAL
*"      ADDSMTP STRUCTURE BAPIADSMTP OPTIONAL
*"      ADDRML STRUCTURE BAPIADRML OPTIONAL
*"      ADDX400 STRUCTURE BAPIADX400 OPTIONAL
*"      ADDRFC STRUCTURE BAPIADRFC OPTIONAL
*"      ADDPRT STRUCTURE BAPIADPRT OPTIONAL
*"      ADDSSF STRUCTURE BAPIADSSF OPTIONAL
*"      ADDURI STRUCTURE BAPIADURI OPTIONAL
*"      ADDPAG STRUCTURE BAPIADPAG OPTIONAL
*"      ADDCOMREM STRUCTURE BAPICOMREM OPTIONAL
*"      GROUPS STRUCTURE BAPIGROUPS OPTIONAL
Ive Managed to glean from various sources on the internet, the various basics on doing a bapi call from VBA
Here is what i have so far.
Private Sub Fetch_User_details_Click()
'Take username in cell 2,2 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Variant
Dim Preturn As Variant
Dim copyFromc As String
'Clear Table Section of Spreadsheet
Worksheets("Sheet1").Select
For x = 9 To 200
For y = 1 To 8
    Worksheets("Sheet1").Cells(x, y).ClearContents
    Next y
Next x
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = ""
R3.Connection.client = ""
R3.Connection.user = ""
R3.Connection.Password = ""
R3.Connection.Language = "EN"
'Logon to SAP
If R3.Connection.logon(0, False) <> True Then
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
copyFromc = Worksheets("Sheet1").Cells(3, 2).Text
Set Pusername = MyFunc.exports("USERNAME")
Pusername.Value = copyFromc
'Call the BAPI
If MyFunc.call Then
' ok now what ?
' Process the returned data into the spreadsheet
Else
    MsgBox ("Call returned FALSE")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
To update the data ( User Role Assignements ) i will be using bapi BAPI_USER_ACTGROUPS_ASSIGN
*"*"Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(USERNAME) LIKE BAPIBNAME-BAPIBNAME
*" TABLES
*"      ACTIVITYGROUPS STRUCTURE BAPIAGR
*"      RETURN STRUCTURE BAPIRET2
* Dieser Baustein ist gleichgestellt mit der Pflege eines Benutzers
* über die Pflegetransaktion, gepflegt werden die Felder, für die die
* Pflege erlaubt ist
I need help deciphering the data received from the bapi and then repackaging it using VBA.
I know writing this in ABAP would take less than 30 mins, but that is not an option for me.

Ok, Ive made some headway
I can now Read all the data i need from SAP
Now comes the bit to write it back again. Will Update when i have a solution
Private Sub copydata_Click()
Dim x1 As Integer, x2 As Integer
'copy all data from "Copy From" to "Copy To"
'first determine how many rows contain roles
'before copying the roles, check that the destination user has no roles assigned
If Cells(9, 6).Text <> "" Then
   MsgBox ("Error. Destination User already has Roles assigned.")
   Exit Sub
End If
For x1 = 0 To 1000
   If Cells(9 + x1, 1).Text = "" Then
     Exit For
   End If
Next
Worksheets("Sheet1").Range(Cells(9, 1), Cells(9 + x1 - 1, 4)).Copy _
   Destination:=Worksheets("Sheet1").Range(Cells(9, 6), Cells(9 + x1, 9))
For x2 = 1 To x1
Worksheets("Sheet1").Cells(9 + x2 - 1, 8).Value = Date
Next
End Sub
Sub Mail_small_Text_Outlook()
' Is working in Office 2000-2007
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    strbody = "User " & Worksheets("Sheet1").Cells(3, 7).Text & _
              " Has Been Moddelled off of User " & _
                Worksheets("Sheet1").Cells(3, 2).Text & " in system " & _
                Worksheets("Connection").Cells(1, 2).Text & vbNewLine & vbNewLine & _
              "Please Adjust Mitigating Controls Accordingly"
    On Error Resume Next
    With OutMail
        .To = Worksheets("Connection").Cells(10, 2).Text
        .CC = ""
        .BCC = ""
        .Subject = "User Modelled"
        .Body = strbody
        .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Private Sub Fetch_CopyTo_User_Click()
'Take username in cell 3,7 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Object
Dim PAddress As Object
Dim PTable As Object
Dim Preturn As Object
Dim copyFromc As String
'Clear Table Section of Spreadsheet
Worksheets("Sheet1").Cells(5, 8).ClearContents
Worksheets("Sheet1").Cells(6, 8).ClearContents
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = Worksheets("Connection").Cells(1, 2).Text
R3.Connection.SystemNumber = Worksheets("Connection").Cells(2, 2).Text
R3.Connection.Destination = Worksheets("Connection").Cells(3, 2).Text
R3.Connection.HostName = Worksheets("Connection").Cells(4, 2).Text
R3.Connection.client = Worksheets("Connection").Cells(5, 2).Text
R3.Connection.user = Worksheets("Connection").Cells(6, 2).Text
R3.Connection.Password = Worksheets("Connection").Cells(7, 2).Text
R3.Connection.Language = Worksheets("Connection").Cells(8, 2).Text
'Logon to SAP
If R3.Connection.Logon(0, -1) <> True Then
   MsgBox ("We Had a Logon Error")
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:\guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
Set Pusername = MyFunc.exports("USERNAME")
Set PAddress = MyFunc.imports("ADDRESS")
Set Preturn = MyFunc.tables("RETURN")
Set PTable = MyFunc.tables("ACTIVITYGROUPS")
Pusername.Value = Worksheets("Sheet1").Cells(3, 7).Text
'Call the BAPI
If MyFunc.call Then
   Dim xxx As String
   Worksheets("Sheet1").Cells(5, 7).Value = PAddress.Value("FIRSTNAME")
   Worksheets("Sheet1").Cells(6, 7).Value = PAddress.Value("LASTNAME")
'Get Assigned Roles
   Dim datarec As Object
   Dim datafld As Object
   x = 9
   For Each datarec In PTable.Rows
     Worksheets("Sheet1").Cells(x, 6).Value = datarec("AGR_NAME")
     Worksheets("Sheet1").Cells(x, 7).Value = datarec("AGR_TEXT")
     Worksheets("Sheet1").Cells(x, 8).Value = datarec("FROM_DAT")
     Worksheets("Sheet1").Cells(x, 9).Value = datarec("TO_DAT")
     x = x + 1
   Next
   copydata.Enabled = True
Else
    MsgBox ("Error Calling Function - Probably Authorizations")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
Private Sub Fetch_User_details_Click()
'Take username in cell 3,2 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Object
Dim PAddress As Object
Dim PTable As Object
Dim Preturn As Object
Dim copyFromc As String
'Clear Table Section and other areas of Spreadsheet
Worksheets("Sheet1").Select
For x = 9 To 1000
For y = 1 To 9
    Worksheets("Sheet1").Cells(x, y).ClearContents
    Next y
Next x
Worksheets("Sheet1").Cells(5, 2).ClearContents
Worksheets("Sheet1").Cells(6, 2).ClearContents
Worksheets("Sheet1").Cells(5, 7).ClearContents
Worksheets("Sheet1").Cells(6, 7).ClearContents
copydata.Enabled = False
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = Worksheets("Connection").Cells(1, 2).Text
R3.Connection.SystemNumber = Worksheets("Connection").Cells(2, 2).Text
R3.Connection.Destination = Worksheets("Connection").Cells(3, 2).Text
R3.Connection.HostName = Worksheets("Connection").Cells(4, 2).Text
R3.Connection.client = Worksheets("Connection").Cells(5, 2).Text
R3.Connection.user = Worksheets("Connection").Cells(6, 2).Text
R3.Connection.Password = Worksheets("Connection").Cells(7, 2).Text
R3.Connection.Language = Worksheets("Connection").Cells(8, 2).Text
'Logon to SAP
If R3.Connection.Logon(0, -1) <> True Then
   MsgBox ("We Had a Logon Error")
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:\guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
Set Pusername = MyFunc.exports("USERNAME")
Set PAddress = MyFunc.imports("ADDRESS")
Set Preturn = MyFunc.tables("RETURN")
Set PTable = MyFunc.tables("ACTIVITYGROUPS")
Pusername.Value = Worksheets("Sheet1").Cells(3, 2).Text
'Call the BAPI
If MyFunc.call Then
   Dim xxx As String
   Worksheets("Sheet1").Cells(5, 2).Value = PAddress.Value("FIRSTNAME")
   Worksheets("Sheet1").Cells(6, 2).Value = PAddress.Value("LASTNAME")
'Get Assigned Roles
   Dim datarec As Object
   Dim datafld As Object
   x = 9
   For Each datarec In PTable.Rows
     Worksheets("Sheet1").Cells(x, 1).Value = datarec("AGR_NAME")
     Worksheets("Sheet1").Cells(x, 2).Value = datarec("AGR_TEXT")
     Worksheets("Sheet1").Cells(x, 3).Value = datarec("FROM_DAT")
     Worksheets("Sheet1").Cells(x, 4).Value = datarec("TO_DAT")
     x = x + 1
   Next
Else
    MsgBox ("Error Calling Function - Probably Authorizations")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
Private Sub UpdateSap_Click()
End Sub

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

Export Project Tasks to Excel using VBA by Custom Field

Question referring to the link:
http://social.technet.microsoft.com/Forums/projectserver/en-US/9c46458c-893f-41ba-bd46-bdb59c533f4a/export-project-tasks-to-excel-using-vba-by-custom-field?forum=project2010custprog
Help needed. I have inserted my question at this address for Andrew or anybody else to reply. Hope to hear from you.
Regards,
Chuck

Thank you Andrew for getting back to me and I have found somewhere on the net the following macro that would do the job for the version 2007. Here is a copy for those that may need it.
Option Explicit
Sub CreateMenus()
Dim cbrMain As CommandBar
Dim ctlMain As CommandBarControl
Dim ctlOLExport1 As CommandBarControl
Dim ctlOLExport2 As CommandBarControl
Dim ctlOLExport3 As CommandBarControl
Set cbrMain = Application.CommandBars.ActiveMenuBar
Set ctlMain = cbrMain.Controls.Add(Type:=msoControlPopup, Temporary:=True)
ctlMain.Caption = "Export to Outlook"
Set ctlOLExport1 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton)
With ctlOLExport1
.Caption = "Selection to Outlook tasks"
.OnAction = "Macro """ & "Export_Selection_To_OL_Tasks"""
End With
Set ctlOLExport2 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton)
With ctlOLExport2
.Caption = "Selection to Outlook appointments"
.OnAction = "Macro """ & "Export_Selection_To_OL_Appointments"""
End With
Set ctlOLExport3 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton)
With ctlOLExport3
.Caption = "Selection to Outlook notes"
.OnAction = "Macro """ & "Export_Selection_To_OL_Notes"""
End With
End Sub
Cheers!
Chuck

Security message on exporting grid to excel from webpage

I am exporting data to excel from grid on a webpage. I have written following code:
gv.DataSource = resultlist;
gv.DataBind();
Response.ClearContent();
Response.AddHeader("content-disposition", "attachment; filename=Test.xls");
Response.ContentType = "application/excel";
//Ccreate string writer object and pass it to HtmlTextWriter object
StringWriter sw = new StringWriter();
HtmlTextWriter htw = new HtmlTextWriter(sw);
gv.RenderControl(htw);
Response.Write(sw.ToString());
Response.End();
Code is executing correctly. But when I open this excel, it is giving me a warning message which says, "The file you are trying to open, "Test.xls", is in a different format than specified by the file extension. Verify that the file is not
corrupted and is from a trusted source before opening the file. Do you want to open the file now?"
File gets opened when I select "Yes" on this message box, but I don't want to get this message box. Is there any work-around to get rid of it? When I selected "Save As" option of this file, I found that default type of the file was Webpage.
How can we get this default type as "xls or xlsx"? I think this problem will be resolved when we will get this default type as "xls or xlsx".

Hi Ajinkya,
Please post in ASP.NET forums:
http://forums.asp.net/
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.

Sorting a range in Excel (from MS Project) using VBA

Similar Messages

Maybe you are looking for