在先等，高手进。

目标驱动一切

Public Sub CreateReportTemplate(TemplateSheetName As String, wkbDst As Workbook, wksDst As Worksheet, wksInit As Worksheet)
On Error GoTo Err

    Dim TemplatePath As String
    TemplatePath = GetTemplatePath()
   
    Dim wkbSrc As Workbook
    Dim wksSrc As Worksheet
   
    Set wkbSrc = Workbooks.Open(TemplatePath, 0)
    Excel.Application.ScreenUpdating = True
    Set wkbDst = Workbooks.Add
   
   
    Set wksSrc = wkbSrc.Sheets(TemplateSheetName)
    wksSrc.Copy before:=wkbDst.Sheets(1)
    wkbDst.ActiveSheet.Name = "InitOne"
   
    wksSrc.Copy before:=wkbDst.Sheets(1)

    wkbSrc.Close (0)
    Set wkbSrc = Nothing
    Set wksSrc = Nothing
   
    Set wksDst = wkbDst.Sheets(TemplateSheetName)
    Set wksInit = wkbDst.Sheets("InitOne")
    Excel.Application.Visible = True
    Exit Sub
Err:
    Dim strTemplateError As String
    strTemplateError = "Template File Error"
    MsgBox strTemplateError
End Sub


这段代码 是否可以在打开的模版 AP列 第三行 写入 11这个值。如果能请帮忙写一下  
本人新手。之前不是我写的。
非常急。
谢谢！



该贴已经同步到 目标驱动一切的微博

目标驱动一切

忘了一段代码

    Dim ExchangeRate As Double, strRate
    strRate = InputBox("Please input the exchange rate", "Exchange Rate", "0")
    ExchangeRate = val(strRate)
   
    Dim flagvalue As Integer
    flagvalue = 2
    flagvalue = MsgBox("You input exchange rate = " & ExchangeRate & " . Are you sure to continue ?", vbOKCancel, "Exchange Rate")
    If flagvalue <> 1 Then
    End If
     我需要把弹出框的值赋给 AP列第三行

目标驱动一切

自己顶一下