VBA application.run不能调用宏（已经解决，谢谢大家）

seanpple

问题已经解决，非常感谢大家的帮助！[code]

附注：
以前是可以运行的，突然不能用了，请问是怎么回事呢？
我也没有禁用宏啊
而且单独运行该宏是可以的。
因为我有好几个单独运行的宏，我想另外单独做一个总宏，调用已经编好的所有的宏。
先行谢过~
不断学习，不断进步…………
问题已经解决，非常感谢大家的帮助！[code]
PS：是宏名称引用不对，转到excel界面，打开宏，
这样就能看到宏的名称了。如下图示：


Workbooks("facility.csv").Sheets("facility").Copy after:=Workbooks("convertdata.xlsm").Sheets("exposure")
Sub Exposure()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open ("C:\Documents and Settings\pyuan\Desktop\Test\Test data\facility.csv")
Workbooks("facility.csv").Sheets("facility").Copy after:=Workbooks("convertdata.xlsm").Sheets("exposure")
On Error Resume Next
ActiveSheet.NAME = "facilitydata"
Workbooks("facility.csv").Close

Dim m As Integer, n As Integer
Sheets("facility").Select
m = ActiveSheet.UsedRange.Rows.Count
n = ActiveSheet.UsedRange.Columns.Count
Range(Cells(2, 1), Cells(m, n)).Select
Selection.Copy

Sheets("exposure").Select
Cells(2, 1).Select
ActiveSheet.Paste

Range("B:B").Select
Selection.NumberFormatLocal = "@"

On Error Resume Next
Sinpdel "facilitydata"

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("conversionpage").Select
End Sub

Sub delandcopy()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks("convertdata.xlsm").Activate
'sinpaddlast "BlankSheet"
Dim sh As Worksheet
For Each sh In Worksheets
If LCase(sh.NAME) <> "conversionpage" Then
sh.Delete
End If
Next
'ActiveSheet.NAME = "sheet1"

'copy all the sheets
Workbooks.Open ("C:\Documents and Settings\pyuan\Desktop\Test\Test data\ZTestPortfoliotInput.xlsx")
For Each sh In Worksheets
sh.Copy before:=Workbooks("convertdata.xlsm").Sheets(1)
Next

ActiveWorkbook.Save
Workbooks("ZTestPortfoliotInput.xlsx").Close

'clear all the contents
Workbooks("convertdata.xlsm").Activate
ActiveWorkbook.Save
Dim p, q As Integer
For Each sh In Worksheets
If LCase(sh.NAME) <> "conversionpage" Then
sh.Select
p = ActiveSheet.UsedRange.Rows.Count
q = ActiveSheet.UsedRange.Columns.Count
'p = sh.[a1048576].End(3).Row
'q = sh.[xdf1].End(xlToLeft).Column
Range(Cells(2, 1), Cells(p + 1, q + 1)).ClearContents
End If
Next

Application.DisplayAlerts = True

Err.Clear
On Error GoTo 0
Sheets("conversionpage").Select

End Sub



Sub convertall()
If MsgBox("Do you want to convert the data?", vbYesNo, "DesignedByXP") = vbYes Then
tt = Timer
Application.ScreenUpdating = False
delandcopy
currencyLookup.currencyLookup
currencydiscouncurvemap
customcashflow.customcashflow
DefaultStatistic.DefaultStatistic
Exposure.Exposure
Group.Group
PortfolioToExposure.PortfolioToExposure
RunParameter.RunParameter
runparameterseed.runparameterseed
UsageFee.UsageFee
YieldCurve.YieldCurve
YieldCurveItem.YieldCurveItem
Tranche
TransitionMatrix
TransitionMatrixBucket
transitionmatrixvalue
exposuretypelookup.exposuretypelookup
portfolio
copyallsheets


On Error Resume Next

Workbooks("ZPortfoliotestOutput.xlsx").Save
Workbooks("ZPortfoliotestOutput.xlsx").Close
Workbooks("convertdata.xlsm").Sheets("conversionpage").Select
Application.ScreenUpdating = True

t = Timer - tt
MsgBox "Time Cost is: " & t & " " & "seconds"

Else
Exit Sub
End If
End Sub

[ 本帖最后由 seanpple 于 2010-4-28 22:32 编辑 ]

alzeng

Sub Test()
    UsageFree
End Sub
正常这样调用就可以了，如果不能，应该是别的方面出了问题。

seanpple

这样写的话，运行后出现如下问题~

alzeng

你确定模块里有UsageFree这个宏吗？

seanpple

我是直接从另外一个sub程序里复制过来的，我确定有这个宏名。
按F5,弹出来的下拉列表里也有这个宏。呵呵~

seanpple

Sub YieldCurve()
Sinponoff ("off")
Application.DisplayAlerts = False
Application.ScreenUpdating = False

On Error Resume Next
Workbooks.Open ("C:\Documents and Settings\pyuan\Desktop\Test\Test data\yieldcurve.csv")
Workbooks("yieldcurve.csv").Sheets("yieldCurve").Copy after:=Workbooks("convertdata.xlsm").Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.NAME = "yieldcurvedata"
Workbooks("yieldCurve.csv").Close

Dim Rng As Range
Dim sh As Worksheet
Dim Ary
Set sh = Sheets("yieldcurvedata")
For Each Rng In sh.Range([A1], sh.[a1048576].End(3))
If Rng = "compoundFreqencyL" Then
Sheets("YieldCurve").[b1048576].End(3).Offset(1) = Rng.Offset(, 1)
ElseIf Rng = "curveID" Then
Sheets("YieldCurve").[a1048576].End(3).Offset(1) = Rng.Offset(, 1)

End If
Next
Sinpdel "yieldcurvedata"
Sinponoff ("on")

End Sub

treepple

标记 一下，貌似没看见 application.run语句呀？

melorbin

的确找了一圈，也好似没看到啊。。。

ning84

1. Sub M()
   
2. '
   
3.     Windows("Book.xls").Activate
   
4.     Windows("Book3.xls").Activate
   
5.     Application.Run "Book.xls!ll"
   
6. End Sub
   
7. 
   
8. 
   
9. 
   
10. 'Other excel file
    
11. Sub ll()
    
12.    For ii = 1 To 5
    
13.         Debug.Print ii
    
14.    Next ii
    
15. End Sub
    

复制代码