Commondialog for excel 2010 - 64 bits

No puedo usar el commondialog en excel 2010 con plataforma de 64 bits. Ya registre el ocx en ''regsvr32 c:\Windows\SysWOW64\comdlg32.ocx'' ......... pero sigo sin poder usarlo. Tengo insertado un commondialog en un excel anterior y cuando lo abro en
2010 me lo marca con una X.
No se como solucionarlo, si alguien me puede ayudar, desde muchas gracias

Hi,
Thanks for posting in MSDN forum.
This forum is discussing developing issues using English. To get more effective response, I suggest that you translate it using English.
In addition, it seem the issue relative to the dialog in Excel, however I am not able to understand it exactly.
As far as I know, we can use
Application.Dialogs to show the build-in dialog in Excel. Also here are some useful links about this topic:
Built-In Dialog Box Argument Lists
How to: Create a Custom Dialog Box
Displaying a Custom Dialog Box
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.

Similar Messages

Excel Trying to Load PowerPivot Add-in (version 11.1.3129.0) for Excel 2010 even after Uninstalltion of the Add-in.

Hi all,
I am trying to Package and deploy Powerpivot Add-in for Excel 2010. I have the Powerpivot_X86_(11.1.329.0) .MSI which installs Unattended, but Uninstallation will not remove entry from COM ADD-IN list in Excel and at first re-launch (even after
Power Pivot Uninstallation) it will try to load Powerpivot add-in and will give an error.
Downloading file.///c:/Program files (x86)/Microsoft analysis services/AS Excel Client/110/Microsoft.AnalysisServices.XLHost.Addin.VSTO did not succeed.
this above path is the [InstallDir] which gets wiped off with the unistallation of the .MSI. So, before uninstallation,I stop the excel process and am running a script to delete HKCU Add-in Reg key entries.
and also, I thought it may be implicitly loading the add-in from folder such as,
C:\Program Files\Microsoft Office\Office14\XLstart
%appdata%\Microsoft\Excel\XLSTART
but nothing is installed there.
Second Issue
when I re-install,
it doesn't automatically show up in the Excel ribbon (even after reboot and even if regeistries are created at the same location) but instead we should add it through COM ADD-IN list in Excel Manually.
Appreciate any idea's and suggestion's.
P.S
is it possible to make it completely installed per system rather having user entries?
Error Details:
Name:
From: file:///C:/Program Files (x86)/Microsoft Analysis Services/AS Excel Client/110/Microsoft.AnalysisServices.XLHost.Addin.vsto
************** Exception Text **************
System.Deployment.Application.DeploymentDownloadException: Downloading file:///C:/Program Files (x86)/Microsoft Analysis Services/AS Excel Client/110/Microsoft.AnalysisServices.XLHost.Addin.vsto did
not succeed. ---> System.Net.WebException: Could not find a part of the path 'C:\Program Files (x86)\Microsoft Analysis Services\AS Excel Client\110\Microsoft.AnalysisServices.XLHost.Addin.vsto'. ---> System.Net.WebException: Could not find a part of
the path 'C:\Program Files (x86)\Microsoft Analysis Services\AS Excel Client\110\Microsoft.AnalysisServices.XLHost.Addin.vsto'. ---> System.IO.DirectoryNotFoundException: Could not find a part of the path 'C:\Program Files (x86)\Microsoft Analysis Services\AS
Excel Client\110\Microsoft.AnalysisServices.XLHost.Addin.vsto'.
   at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
   at System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES
secAttrs, String msgPath, Boolean bFromProxy)
   at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options, String msgPath, Boolean bFromProxy)
   at System.Net.FileWebStream..ctor(FileWebRequest request, String path, FileMode mode, FileAccess access, FileShare sharing, Int32 length, Boolean async)
   at System.Net.FileWebResponse..ctor(FileWebRequest request, Uri uri, FileAccess access, Boolean asyncHint)
   --- End of inner exception stack trace ---
   at System.Net.FileWebResponse..ctor(FileWebRequest request, Uri uri, FileAccess access, Boolean asyncHint)
   at System.Net.FileWebRequest.GetResponseCallback(Object state)
   --- End of inner exception stack trace ---
   at System.Net.FileWebRequest.EndGetResponse(IAsyncResult asyncResult)
   at System.Net.FileWebRequest.GetResponse()
   at System.Deployment.Application.SystemNetDownloader.DownloadSingleFile(DownloadQueueItem next)
   --- End of inner exception stack trace ---
at Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.GetManifests(TimeSpan timeout)
   at Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.InstallAddIn()

Guys, I think I solved the
issue:
Symptoms
1. Power Pivot SQL 2012 32-bit installed over the old version without
deinstalling it
2. Installed with a user with administrator rights
3. It worked under the profile with admin rights, it didn't work under the
normal users w/o admin rights and threw this error message: Downloading file.///c:/Program files (x86)/Microsoft analysis services/AS Excel Client/10/Microsoft.AnalysisServices.XLHost.Addin.VSTO
did not succeed.
4. In the admin profile, it went to the path "110": C:/Program
Files (x86)/Microsoft Analysis Services/AS Excel
Client/110/Microsoft.AnalysisServices.Modeler.FieldList.vsto
5. In the normal profile, it went to the - wrong - "10" path:
C:/Program Files (x86)/Microsoft Analysis Services/AS Excel
Client/10/Microsoft.AnalysisServices.Modeler.FieldList.vsto
SOLUTION
1. ADMIN: Installed VSTO 4.0
2. ADMIN: Checked if the .NET Programmability Support was installed - it was -
if not, install it!
3. NORMAL USER: Create a .reg file (Backup your registry before!) and
use it UNDER THE NORMAL USER!!!
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\Excel][HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins][HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\Microsoft.AnalysisServices.Modeler.FieldList]
"Description"="Microsoft SQL Server PowerPivot for Microsoft Excel"
"FriendlyName"="PowerPivot for Excel"
"LoadBehavior"=dword:00000003
"Manifest"="C:\\Program Files\\Microsoft Analysis Services\\AS
Excel Client\\110\\Microsoft.AnalysisServices.XLHost.Addin.vsto|vstolocal"
"CartridgePath"="C:\\Program Files\\Microsoft Analysis
Services\\AS OLEDB\\110\\Cartridges\\"
4. NORMAL USER: Rename the registry key
"HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\User Settings\Microsoft.AnalysisServices.Modeler.FieldList"
into
"HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\User
Settings\Microsoft.AnalysisServices.Modeler.FieldList_old"
5. NORMAL USER: Start up Power Pivot and it should
work now!
Analysis
IMHO the issue lies in the fact, that the Power Pivot
installer creates two problems:
The first issue is that the path to the add-in under
the NORMAL user is simply wrong and points to a wrong location (the
"10" in the path). In the admin profile, where it was originally
installed, it points to the "110" path which is correct.
The second issue is that the installation procedure
somehow needs to create a registry key (the one under point 4 in the solution)
to complete it self and if this key already exists it fails to install and
throws up weird error messages. If you delete or rename this key, it is created
again (exactly in the same way) but then everything works out.
Hope this
helps!
Regards, Reto

Connecting Excel 2010 64 bit on Windows 7 64 bit to Oracle 11gR2 on Linux

Using:
Excel 2010 64 bit
Windows 7 64 bit
Oracle instant client 11.2.0.1 64 bit
connecting to Oracle 11gR2 64 bit on Linux 5.8 64 bit
I have created a User DSN in Windows called "NITRO Oracle 11gR2 DB" using the Oracle 64 bit instant client driver 11.2.0.1. Configured as so
http://i.imgur.com/2a3MZ.png
Connection test is successful.
In Excel 2010, I go to Data ribbon, From Data Connection Wizard
http://i.imgur.com/han3u.png
I then choose Other/Advanced, and then Oracle Provider for OLE DB.
http://i.imgur.com/w3P1c.png
I click next and then put in the data source, user name and password and click test, and it fails with Micosoft Data Link Error. http://i.imgur.com/zuv41.png
Do you know what I'm doing wrong?

12154 means the client couldn't resolve what you filled in for Data Source. What did you fill in for Data Source when configuring the OLEDB connection? It looks like "nitro" should be the correct thing to fill in, based on your statement that the ODBC DSN you configured works with it.
Greg

Sending and receivind ADC coefficients from/to soundcard in VBA for Excel 2010

How to send and receive ADC coefficients from/to soundcard(mixer,microphone) in VBA for Excel 2010 (noncom. edition, x64) to Excel macros for DFT (from IDFT), IIR , user defined samples parser (special
noise generator, graphic s(t),S(jw), arg s(jw) soundcard AFR test ) ?
What .dll is need for this (without bass.dll)?

Example from internet :
'This project needs a module and a form
'The form must contain two labels, two progressbars, a timer and a checkbox
'Paste this code into the form
Dim hmixer As Long ' mixer handle
Dim inputVolCtrl As MIXERCONTROL ' waveout volume control
Dim outputVolCtrl As MIXERCONTROL ' microphone volume control
Dim rc As Long ' return code
Dim ok As Boolean ' boolean return code
Dim mxcd As MIXERCONTROLDETAILS ' control info
Dim vol As MIXERCONTROLDETAILS_SIGNED ' control's signed value
Dim volume As Long ' volume value
Dim volHmem As Long ' handle to volume memory
Private Sub Form_Load()
Me.ScaleMode = vbTwips
Me.Caption = "Volume meter"
Label1.Move 0, 0
Label1.AutoSize = True
Label1.Caption = "Input level"
Label2.Move 0, 4 * Label1.Height
Label2.AutoSize = True
Label2.Caption = "Output level"
ProgressBar1.Move Label1.Width * 2, 0, 3375
ProgressBar2.Move Label1.Width * 2, Label2.Top, 3375
Check1.Move ProgressBar1.Left, ProgressBar1.Height
Check1.Caption = "Get Input"
Me.Move Me.Left, Me.Top, ProgressBar1.Width + ProgressBar1.Left + 10 * Screen.TwipsPerPixelX, ProgressBar2.Top + ProgressBar2.Height + 30 * Screen.TwipsPerPixelY
Timer1.Interval = 50
Timer1.Enabled = True
' Open the mixer specified by DEVICEID
rc = mixerOpen(hmixer, DEVICEID, 0, 0, 0)
If ((MMSYSERR_NOERROR <> rc)) Then
MsgBox "Couldn't open the mixer."
Exit Sub
End If
' Get the input volume meter
ok = GetControl(hmixer, MIXERLINE_COMPONENTTYPE_DST_WAVEIN, MIXERCONTROL_CONTROLTYPE_PEAKMETER, inputVolCtrl)
If (ok <> True) Then
ok = GetControl(hmixer, MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE, MIXERCONTROL_CONTROLTYPE_PEAKMETER, inputVolCtrl)
End If
If (ok = True) Then
ProgressBar1.Min = 0
ProgressBar1.Max = inputVolCtrl.lMaximum
Else
ProgressBar1.Enabled = False
MsgBox "Couldn't get wavein meter"
End If
' Get the output volume meter
ok = GetControl(hmixer, MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT, MIXERCONTROL_CONTROLTYPE_PEAKMETER, outputVolCtrl)
If (ok = True) Then
ProgressBar2.Min = 0
ProgressBar2.Max = outputVolCtrl.lMaximum
Else
ProgressBar2.Enabled = False
MsgBox "Couldn't get waveout meter"
End If
' Initialize mixercontrol structure
mxcd.cbStruct = Len(mxcd)
volHmem = GlobalAlloc(&H0, Len(volume)) ' Allocate a buffer for the volume value
mxcd.paDetails = GlobalLock(volHmem)
mxcd.cbDetails = Len(volume)
mxcd.cChannels = 1
End Sub
Private Sub Check1_Click()
If (Check1.Value = 1) Then
StartInput ' Start receiving audio input
Else
StopInput ' Stop receiving audio input
End If
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
' Process sound buffer if recording
If (fRecording) Then
For i = 0 To (NUM_BUFFERS - 1)
If inHdr(i).dwFlags And WHDR_DONE Then
rc = waveInAddBuffer(hWaveIn, inHdr(i), Len(inHdr(i)))
End If
Next
End If
' Get the current input level
If (ProgressBar1.Enabled = True) Then
mxcd.dwControlID = inputVolCtrl.dwControlID
mxcd.item = inputVolCtrl.cMultipleItems
rc = mixerGetControlDetails(hmixer, mxcd, MIXER_GETCONTROLDETAILSF_VALUE)
CopyStructFromPtr volume, mxcd.paDetails, Len(volume)
If (volume < 0) Then
volume = -volume
End If
ProgressBar1.Value = volume
End If
' Get the current output level
If (ProgressBar2.Enabled = True) Then
mxcd.dwControlID = outputVolCtrl.dwControlID
mxcd.item = outputVolCtrl.cMultipleItems
rc = mixerGetControlDetails(hmixer, mxcd, MIXER_GETCONTROLDETAILSF_VALUE)
CopyStructFromPtr volume, mxcd.paDetails, Len(volume)
If (volume < 0) Then volume = -volume
ProgressBar2.Value = volume
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If (fRecording = True) Then
StopInput
End If
GlobalFree volHmem
End Sub
'Paste this code into the module
Public Const CALLBACK_FUNCTION = &H30000
Public Const MM_WIM_DATA = &H3C0
Public Const WHDR_DONE = &H1 ' done bit
Public Const GMEM_FIXED = &H0 ' Global Memory Flag used by GlobalAlloc functin
Type WAVEHDR
lpData As Long
dwBufferLength As Long
dwBytesRecorded As Long
dwUser As Long
dwFlags As Long
dwLoops As Long
lpNext As Long
Reserved As Long
End Type
Type WAVEINCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
dwFormats As Long
wChannels As Integer
End Type
Type WAVEFORMAT
wFormatTag As Integer
nChannels As Integer
nSamplesPerSec As Long
nAvgBytesPerSec As Long
nBlockAlign As Integer
wBitsPerSample As Integer
cbSize As Integer
End Type
Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Declare Function waveInPrepareHeader Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long
Declare Function waveInReset Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInStart Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInStop Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInUnprepareHeader Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long
Declare Function waveInClose Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInGetDevCaps Lib "winmm.dll" Alias "waveInGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEINCAPS, ByVal uSize As Long) As Long
Declare Function waveInGetNumDevs Lib "winmm.dll" () As Long
Declare Function waveInGetErrorText Lib "winmm.dll" Alias "waveInGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
Declare Function waveInAddBuffer Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long
Public Const MMSYSERR_NOERROR = 0
Public Const MAXPNAMELEN = 32
Public Const MIXER_LONG_NAME_CHARS = 64
Public Const MIXER_SHORT_NAME_CHARS = 16
Public Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H3&
Public Const MIXER_GETCONTROLDETAILSF_VALUE = &H0&
Public Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H2&
Public Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H0&
Public Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H1000&
Public Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
Public Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
Public Const MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2)
Public Const MIXERCONTROL_CT_CLASS_FADER = &H50000000
Public Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H30000
Public Const MIXERCONTROL_CT_UNITS_SIGNED = &H20000
Public Const MIXERCONTROL_CT_CLASS_METER = &H10000000
Public Const MIXERCONTROL_CT_SC_METER_POLLED = &H0&
Public Const MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER Or MIXERCONTROL_CT_UNITS_UNSIGNED)
Public Const MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER + 1)
Public Const MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 7)
Public Const MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8)
Public Const MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER Or MIXERCONTROL_CT_SC_METER_POLLED Or MIXERCONTROL_CT_UNITS_SIGNED)
Public Const MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1)
Declare Function mixerClose Lib "winmm.dll" (ByVal hmx As Long) As Long
Declare Function mixerGetControlDetails Lib "winmm.dll" Alias "mixerGetControlDetailsA" (ByVal hmxobj As Long, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Long) As Long
Declare Function mixerGetDevCaps Lib "winmm.dll" Alias "mixerGetDevCapsA" (ByVal uMxId As Long, ByVal pmxcaps As MIXERCAPS, ByVal cbmxcaps As Long) As Long
Declare Function mixerGetID Lib "winmm.dll" (ByVal hmxobj As Long, pumxID As Long, ByVal fdwId As Long) As Long
Declare Function mixerGetLineInfo Lib "winmm.dll" Alias "mixerGetLineInfoA" (ByVal hmxobj As Long, pmxl As MIXERLINE, ByVal fdwInfo As Long) As Long
Declare Function mixerGetLineControls Lib "winmm.dll" Alias "mixerGetLineControlsA" (ByVal hmxobj As Long, pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Long) As Long
Declare Function mixerGetNumDevs Lib "winmm.dll" () As Long
Declare Function mixerMessage Lib "winmm.dll" (ByVal hmx As Long, ByVal uMsg As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Long) As Long
Declare Function mixerOpen Lib "winmm.dll" (phmx As Long, ByVal uMxId As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long
Declare Function mixerSetControlDetails Lib "winmm.dll" (ByVal hmxobj As Long, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Long) As Long
Declare Sub CopyStructFromPtr Lib "kernel32" Alias "RtlMoveMemory" (struct As Any, ByVal ptr As Long, ByVal cb As Long)
Declare Sub CopyPtrFromStruct Lib "kernel32" Alias "RtlMoveMemory" (ByVal ptr As Long, struct As Any, ByVal cb As Long)
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hmem As Long) As Long
Declare Function GlobalFree Lib "kernel32" (ByVal hmem As Long) As Long
Type MIXERCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * MAXPNAMELEN
fdwSupport As Long
cDestinations As Long
End Type
Type MIXERCONTROL
cbStruct As Long
dwControlID As Long
dwControlType As Long
fdwControl As Long
cMultipleItems As Long
szShortName As String * MIXER_SHORT_NAME_CHARS
szName As String * MIXER_LONG_NAME_CHARS
lMinimum As Long
lMaximum As Long
Reserved(10) As Long
End Type
Type MIXERCONTROLDETAILS
cbStruct As Long
dwControlID As Long
cChannels As Long
item As Long
cbDetails As Long
paDetails As Long
End Type
Type MIXERCONTROLDETAILS_SIGNED
lValue As Long
End Type
Type MIXERLINE
cbStruct As Long
dwDestination As Long
dwSource As Long
dwLineID As Long
fdwLine As Long
dwUser As Long
dwComponentType As Long
cChannels As Long
cConnections As Long
cControls As Long
szShortName As String * MIXER_SHORT_NAME_CHARS
szName As String * MIXER_LONG_NAME_CHARS
dwType As Long
dwDeviceID As Long
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * MAXPNAMELEN
End Type
Type MIXERLINECONTROLS
cbStruct As Long
dwLineID As Long
dwControl As Long
cControls As Long
cbmxctrl As Long
pamxctrl As Long
End Type
Public i As Integer, j As Integer, rc As Long, msg As String * 200, hWaveIn As Long
Public Const NUM_BUFFERS = 2
Public format As WAVEFORMAT, hmem(NUM_BUFFERS) As Long, inHdr(NUM_BUFFERS) As WAVEHDR
Public Const BUFFER_SIZE = 8192
Public Const DEVICEID = 0
Public fRecording As Boolean
Function GetControl(ByVal hmixer As Long, ByVal componentType As Long, ByVal ctrlType As Long, ByRef mxc As MIXERCONTROL) As Boolean
' This function attempts to obtain a mixer control. Returns True if successful.
Dim mxlc As MIXERLINECONTROLS
Dim mxl As MIXERLINE
Dim hmem As Long
Dim rc As Long
mxl.cbStruct = Len(mxl)
mxl.dwComponentType = componentType
' Obtain a line corresponding to the component type
rc = mixerGetLineInfo(hmixer, mxl, MIXER_GETLINEINFOF_COMPONENTTYPE)
If (MMSYSERR_NOERROR = rc) Then
mxlc.cbStruct = Len(mxlc)
mxlc.dwLineID = mxl.dwLineID
mxlc.dwControl = ctrlType
mxlc.cControls = 1
mxlc.cbmxctrl = Len(mxc)
' Allocate a buffer for the control
'hmem = GlobalAlloc(&H40, Len(mxc))
hmem = GlobalAlloc(GMEM_FIXED, Len(mxc))
mxlc.pamxctrl = GlobalLock(hmem)
mxc.cbStruct = Len(mxc)
' Get the control
rc = mixerGetLineControls(hmixer, mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
If (MMSYSERR_NOERROR = rc) Then
GetControl = True
' Copy the control into the destination structure
CopyStructFromPtr mxc, mxlc.pamxctrl, Len(mxc)
Else
GetControl = False
End If
GlobalFree (hmem)
Exit Function
End If
GetControl = False
End Function
' Function to process the wave recording notifications.
Sub waveInProc(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long)
If (uMsg = MM_WIM_DATA) Then
If fRecording Then
rc = waveInAddBuffer(hwi, hdr, Len(hdr))
End If
End If
End Sub
' This function starts recording from the soundcard. The soundcard must be recording in order to
' monitor the input level. Without starting the recording from this application, input level
' can still be monitored if another application is recording audio
Function StartInput() As Boolean
If fRecording Then
StartInput = True
Exit Function
End If
format.wFormatTag = 1
format.nChannels = 1
format.wBitsPerSample = 8
format.nSamplesPerSec = 8000
format.nBlockAlign = format.nChannels * format.wBitsPerSample / 8
format.nAvgBytesPerSec = format.nSamplesPerSec * format.nBlockAlign
format.cbSize = 0
For i = 0 To NUM_BUFFERS - 1
hmem(i) = GlobalAlloc(&H40, BUFFER_SIZE)
inHdr(i).lpData = GlobalLock(hmem(i))
inHdr(i).dwBufferLength = BUFFER_SIZE
inHdr(i).dwFlags = 0
inHdr(i).dwLoops = 0
Next
rc = waveInOpen(hWaveIn, DEVICEID, format, 0, 0, 0)
If rc <> 0 Then
waveInGetErrorText rc, msg, Len(msg)
MsgBox msg
StartInput = False
Exit Function
End If
For i = 0 To NUM_BUFFERS - 1
rc = waveInPrepareHeader(hWaveIn, inHdr(i), Len(inHdr(i)))
If (rc <> 0) Then
waveInGetErrorText rc, msg, Len(msg)
MsgBox msg
End If
Next
For i = 0 To NUM_BUFFERS - 1
rc = waveInAddBuffer(hWaveIn, inHdr(i), Len(inHdr(i)))
If (rc <> 0) Then
waveInGetErrorText rc, msg, Len(msg)
MsgBox msg
End If
Next
fRecording = True
rc = waveInStart(hWaveIn)
StartInput = True
End Function
' Stop receiving audio input on the soundcard
Sub StopInput()
fRecording = False
waveInReset hWaveIn
waveInStop hWaveIn
For i = 0 To NUM_BUFFERS - 1
waveInUnprepareHeader hWaveIn, inHdr(i), Len(inHdr(i))
GlobalFree hmem(i)
Next
waveInClose hWaveIn
End Sub
Error if using winmm.dll, kernel32 in x64 mode

OraOLEDB.Oracle Provider Not Found- Windows 7 64 bit Excel 2010 32-bit Help

Currently, I have an excel 2010 application that users on Windows XP 32 bit are using to connect to an Oracle 32-bit database and extract data back into Excel. Each time they open the Excel file, the VBA code automatically creates a new connection using Provider =ORA.OLEDB.Oracle Provider. All users using the Excel file have installed Oracle 9.2.1 run-time client on their machine. All of that works well currently for over 100+ users on Windows XP 32-bit
Starting very shortly our company is moving to Windows 7 64-bit. We acquired a test PC with Windows 7 64-bit and Excel 2010 32-bit. We tried to install Oracle 9.0.2 run-time client but we couldn't connect to the database ( even with Sql Plus). We therefore downloaded Oracle 10g 10.2.04 Run-time client. With this installed, we were able to connect to via SQL Plus to the database. However, using the same Excel file and the following same VBA code.
Set cn = New ADODB.Connection
cn.Open ThisWorkbook.getDBCon()
Public Function getDBCon()
getDBCon = "Provider=OraOLEDB.Oracle;" & _
"Data Source=MyOracleDB;" & _
"User Id=" & getDBUser() & ";Password=" & getDBPss()
End Function
I get a "Provider Not Found error". The VBA code and file work perfect in XP 32-bit. It seems going over to Windows 64-bit has caused issues with the file's macro. I am looking for help assessing if I have more of an Oracle Client issue or a Microsoft ADO issue. Any input would be greatly appreciated. Thank You.

@damorgan
Yea agreed with Excel to Oracle comment. This is due to issues with global implementation of an ERP system and the disconnets between IT and Business. Therefore the business intelligence tables in oracle are most easily pulled and acted on by novice PC users via Excel. In the business, Excel is the standard tool novice non-IT people feel comfortable in to share and act on data. Most of these users have no IT knowledge whatsoever, so we create buttons and filters for them to query and then massage in Excel as they see fit.
Having said that, still wondering if it's a ADO or Oracle Client issue. This is something beyond my knowledge. I wouldn't imagine it's the Visual Basic issue since this same file works in Windows XP. I am not in the position to just scrap Excel as the business relies on this in production and I am the only support. What could 64 bit vs 32 bit differences be having here? Thank You.

64-bit Smart View + Excel 2010 64-bit Issues - Help Please

Hello everyone.
First, I am not an "IT guy" so please bare with me as I am not technical but need help.
I am running Windows 7 64-bit Professional and Excel 2010 64-bit. I installed Oracle Smart View for Office, Fusion Edition 64-bit as an add-in within Excel.
I have worked with our "Hyperion Admins" to connect to the right server so that my "private connections" are set correctly (hopefully that makes sense).
However, when I attempt to refresh my Smart View query I end-up retrieving no data. The "refresh" button under "Smart View" in Excel will proceed as a refresh is occurring but then not return data (I know this Smart View template works as I've used it many times on 32-bit Excel).
Our admins have informed me that I cannot use 64-bit Smart View because our "server" is on a 32-bit O/S (or something similar to that). To me, the logic doesn't make sense and I'm hoping that there is a solution the admins are not aware of.
Happy to answer any questions and appreciate any help.

JDN wrote:
We had a similar experience as JTF, HsGetValues would not work but the AdHoc function worked fine. I put in an SR with Oracle and they refereced the below document. We ended up having IT install 32 bit office on the machine along with 32 bit Smartview (11.1.2.2.300) and now it is working fine.
Regards,
Jason
Some Smart View Functions Do Not Work in Excel 2010 64-bit. [ID 1463814.1]
To Bottom
Modified:Aug 30, 2012Type:PROBLEMStatus:PUBLISHEDPriority:3
Comments (0)
In this Document
Symptoms
Cause
Solution
References
Applies to:
Hyperion Financial Management - Version 11.1.2.2.000 and later
Information in this document applies to any platform.
Symptoms
When using Smart View (SV) with Microsoft Office 2010 SP1 some SV functions do not work or cause Excel application to crash.
Cause
In 64-bit versions of Excel 2010 SP1, the presence of Smart View functions may cause Excel to terminate abruptly and may prevent Copy Data Point and Paste Data Point functions from working. This has been identified as a defect in Microsoft product.
Solution
Use the 32-bit version of Smart View until Microsoft issues fix for their 64-bit Office products.
References
@ BUG:13606492 - USING HSSETVALUE FUNCTION CAUSES EXCEL CRASH
14091219
Related
Products
•Enterprise Performance Management and Business Intelligence > Enterprise Performance Management > Financial Management > Hyperion Financial Management > Smart View > Smart View
Keywords
BIT;CRASH;EXCEL;HSGETVALUE;MICROSOFT;OFFICE 2010;SMART VIEW;SMARTVIEW;SP1;DYNAMIC ADV PROBLEM SOLUTIONCan you use the 32-bit Smart View with 64-bit Office? Unfortunately, 32-bit Excel cannot handle my files so I am forced to use 64-bit so going back to a 32-bit Office will not work for me.

Support for Excel 2010?

At what point does Oracle plan to add support for Excel 2010 (including 64 bit) to IOP?
11.1.2.0 supports Excel 2003 SP1 and Excel 2007.
Thank you.

It will be supported in future release and we dont have specific dates or releases yet.

PowerPivot Add-In for Excel 2010

Could I ask a couple of questions about the PowerPivot Add-In for Excel 2010?
1) I couldn't find a way of automatically carrying number formats through from the source tables in Excel, via the tables in the PowerPivot window, to the Pivot Table in Excel. For example I have £7.20 in a source table, but this appears as £7.2 in
the Power Pivot window and 7.2 in the Pivot Table in Excel (3 different formats). Is it possible to get the value to appear
automatically as £7.20 in all 3 places?
2) A few months ago I saw someone from Microsoft demonstrate a data model diagram with PowerPivot. I couldn't see this in the PowerPivot Add-In for Excel 2010. Is it only available with Excel 2013?
Many thanks.

1) Number formats have to be done manually,
    in three different places.
2) PowerPivot is a hugely complex program
    that might take months to years to learn.
    A simple demo is not going to accomplish much.
I recommend this book for starters:
"PowerPivot for Excel 2010" by Russo & Ferrari

Power Map Available for Excel 2010?

Hi,
I would like to download Power Map for Excel 2010. Does Microsoft have an add-in for Power Map for Excel 2010? I've been searching but have only come across an add-in for Excel 2013.
Thank you.
Stuart

Nope. It is for Excel 2013 only (Office 365).

Windows 7 - ODBC for Office 2010 64 bit - MS ODBC Driver for Oracle

I am trying to link a table from an oracle rac 10.2.0.4 64 bit install.
I have windows 7 with the oracle 64 bit client.
in odbc i can create a datasource using the oracle driver
and when i try to link a table i get an error :
Reserved error (-7732); there is no message for this error.
I would like to use the Microsoft ODBC for Oracle Driver but it doesnt exist on my computer.
the old one on windows xp used file MSORCL32.DLL is there a MSORCL64.DLL now?
Anyone have any help?
Jeff

Jam The Man's solution worked for me.
>
Here's the solution.
My operating system is Windows 7 64-bit, using Office 2010 64-bit. Trying to connect to an ODBC data source through Excel. The data source is an Oracle9i 32-bit database on a Windows Server 2003 32-bit server. However, the database version or server operating system is arbitrary; it could be an 8i, 9i, 10g, or even an 11g 32-bit or 64-bit database on a UNIX or Windows server. If you're using Windows 7 64-bit and you want to connect to an ODBC data source through Excel to an Oracle database, you must use Office 2010 64-bit. You cannot use Office 2003 or 2007, for example.
Follow these steps on your Windows 7 64-bit PC to connect to your ODBC data source.
1. Through Oracle's web site, go to Instant Client Downloads for Microsoft Windows (x64). Currently, the address to that page is:
http://www.oracle.com/technology/software/tech/oci/instantclient/htdocs/winx64soft.html
2. Download the two following files, found under the version 11.1.0.7.0 heading:
Instant Client Package - Basic (instantclient-basic-win-x86-64-11.1.0.7.0.zip)
Instant Client Package - ODBC (instantclient-odbc-win-x86-64-11.1.0.7.0.zip)
3. Extract both zip files to the same directory (such as c:\oracle\instantclient_11_1).
4. Launch the Command Prompt (DOS command window) by running it as administrator. Go to Start > All Programs > Accessories, then right click Command Prompt and select Run as Administrator.
5. From within the Command Prompt, navigate to c:\oracle\instantclient_11_1, and run odbc_install.exe. You should receive a message saying Oracle ODBC Driver is installed successfully. The name of the new ODBC driver that was just installed is Oracle in instantclient11_1 -- use this driver when creating your ODBC connection.
6. Create a new system environment variable. Set the value of the variable name as TNS_ADMIN, and the value of the variable path as the directory that contains the tnsnames.ora and sqlnet.ora files. On my PC, I have another Oracle client already installed which has its own tnsnames.ora and sqlnet.ora files. Therefore, I set the value of variable path as c:\orant\net80\admin (the directory that contains my tnsnames.ora and sqlnet.ora files). If you don't have another Oracle client installed on your PC, create a new directory such as c:\oracle\instantclient_11_1\network\admin, and place the tnsnames.ora and sqlnet.ora files in that directory. Then, set c:\oracle\instantclient_11_1\network\admin as the value for the variable path.
7. To create the ODBC connection, go Start > Control Panel > Administrative Tools > Data Sources (ODBC). Alternatively, you can create the connection right from within Excel.
Thanks man it worked for me.
My host environment is windows 7 x64 ultimate and I have my oracle 10g in centos installed in VMware.
Previously I had vista home premium x64 there instantclient 10.2 basic and odbc worked but in windows 7 it wasn't working.
Thanks again.

Itunes outlook addin for Office 2010 64 bit

Does Itunes 64 bit contain a 64 bit outlook addin? I can't see Outlook as an option for syncing my contacts between my Iphone and my computer.

The latest version of the Desktop Software does support 2010 64-bit.
Get the latest version.
6.0.1 b21
https://www.blackberry.com/Downloads/entry.do?code=A8BAA56554F96369AB93E4F3BB068C22
1. If any post helps you please click the below the post(s) that helped you.
2. Please resolve your thread by marking the post "Solution?" which solved it for you!
3. Install free BlackBerry Protect today for backups of contacts and data.
4. Guide to Unlocking your BlackBerry & Unlock Codes
Join our BBM Channels (Beta)
BlackBerry Support Forums Channel
PIN: C0001B7B4 Display/Scan Bar Code
Knowledge Base Updates
PIN: C0005A9AA Display/Scan Bar Code

CUCILync for Outlook 2010 64-bit

Hello,
Is there any possibility or work-arround to integrate the Cisco UC Integration for Microsoft Lync plugin (Release 8.5(1)) with Microsoft Outlook 2010 64-bit?
According to the release notes, the "click-to-call" feature it is not supported in Outlook 64bit but my company realy likes this tool and we want to deploy as soon as possible on all our laptops (Windows 7 with MS Office 2010, both in 64bit version).
Does anybody know if a new version the Cucimoc/Cucilync plugin will be released soon, which then will support Outlook 64bit?
Thanks a lot in advance.
Marc Hoffmann

Unfortunately, Office 2010 64-bit support did not make it into CUCILync 8.5.2 which is due for immenint release. It would be beneficial to express, to your Cisco Sales Team, your interest in having Office 2010 64-bit support for future CUCILync release (post 8.5.2).

How do i get the icloud add in for outlook 2010 64 bit

I am running windows 7 64 bit and outlook 2010 64 bit. I had the icloud add in installed but it became corrupted, so i removed it, but now my iphone calendar does not sync with outlook and i need to find a way to download and reinstall a functioning add in.

I have done that. When I try to synch my contacts and calendar I get the message: "Setup can't continue because Outlook isn't configured to have a default profile. Check your Outlook settings and try again."
But I do have Outlook configured with a default profile. When I follow the rabbit trail of troubleshooting it comes down to checking to make sure the iCloud add in is active. When I check that, not only is it not active - it's not there. Thus my original question: Where can I get the iCloud add in for Outlook?

VB UI builder, RAD, CASE Wizard for creating macro for Excel 2010?

Hello, I wonder if it is available a: rad, case, UI, framework, application wizard that using VBA as its engine may easy the process to create a macro excel 2010; here the link: https://www.dropbox.com/s/62r5wwgf0ziy5ht/sheet.xlsm to the sheet for an example
of what I mean. It is not about a macro recorder task; it is not interactive. Thank you.
Regards, Giuseppe

Thank you for your interest, this is another link for the same file: http://www.adrive.com/public/rBdrRn/sheet.xlsm
Regards,
Giuseppe

Recent Security Updates To Company Computers Have Affected VBA in Excel 2010 (32 bit)

On 19 February, 2015, IT pushed Security Updates (see below for list). The following day several macros failed to execute. A closer look at the code revealed that the problem occurred when toggling between excel workbooks. Specifically,
the "Windows.Activate" did not happen causing the next line of code to give a subscript out of range error. The worksheet couldn't be found in the still active incorrect workbook. The macros affected were written years ago and have worked
without incident for years.
To test this, I created 3 files and recorded various toggling actions. These recorded lines of code also failed, showing me that there is nothing wrong with the code itself, but in the way the machine was able to execute it.
I also tried the failing macros on other machines to determine whether this was my machine or if other were affected. Again the result was the failure.
Please help! We rely on these workbooks to make important business decisions daily!
Here is the test code I created to illustrate the failure. In this code, the failure occurs when Test 3 should be activated.
Sub Macro1()
' Macro1 Macro
Windows("Test 2.xlsx").Activate
Sheets("Sheet2").Select
Range("A1:C3").Select
Selection.Copy
Windows("Test 1.xlsm").Activate
Sheets("Sheet2").Select
ActiveSheet.Paste
Windows("Test 2.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Test 3.xlsx").Activate
Sheets("Sheet1").Select
Range("A1:C3").Select
Selection.Copy
Windows("Test 1.xlsm").Activate
Sheets("Sheet3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Windows("Test 3.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Sheet1").Select
ActiveCell.FormulaR1C1 = "The End"
Range("A2").Select
End Sub
Here are the updates that were installed.
KB2810073, KB2687423, KB2880971, KB2850016, KB2956066, KB2920748, KB2956081, KB2687455, KB2826023, KB2837597, KB2956073
Thanks!
Keith

Hi,
We have not seen the similar issue in this forum yet. I checked your update list, I found some updates were not released in 19 February, 2015 (Such as KB2880971.)
As far as I know, the some macros/activate X controls can't be used after installing MS14-082 Microsoft Office Security Updates for December 2014. Please try the workaround:
Delete the cached versions of the control type libraries (extender files) on the client computer. To do this, perform a search on your hard disk for files that have the ".exd" file name extension and delete all the .exd files that you find. These
.exd files will be re-created automatically when you use the new controls the next time that you use VBA. These extender files will be under the user's profile and may also be in other locations, such as the following:
%appdata%\microsoft\forms
%temp%\excel8.0
%temp%\word8.0
%temp%\PPT11.0
%temp%\vbe
Then, if this issue still exists, please try to remove all the updates to test. It'll help us to narrow down the issue.
Next, if this issue still occurs when we have removed the updates, we may need to debug the code.I recommend you post the question to MSDN forum:
http://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev&filter=alltypes&sort=lastpostdesc
=================
Update,
Hotfixes for this issue have been released in the March 2015 Updates for Office 2007, 2010 & 2013.
http://blogs.technet.com/b/the_microsoft_excel_support_team_blog/archive/2014/12/13/forms-controls-stop-working-after-december-2014-updates-.aspx
Regards,
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.
Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact [email protected].

Commondialog for excel 2010 - 64 bits

Similar Messages

Maybe you are looking for