Как записать значение в текущий лист

Question

Как записать значение в текущий лист?

Ниже откроется новый рабочий лист.

sub test()

Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook

    Set xlApp = New Excel.Application
    Set xlWb = xlApp.Workbooks.Add
    Set xlSht = xlWb.Sheets(1)

    With xlSht
        .Cells(1, 1) = "Received Time"
    End With
 Call DocumentFolders(Session.GetSharedDefaultFolder(olShareName, olFolderInbox), 2)

Я пытался изменить это, но он не работает. Что-то не так с моим кодом?

sub test()

  Dim ws As Worksheet
  Set ws = Worksheets("Sheet1")

    With ws 'xlSht
        .Cells(1, 1) = "Received Time"
    End With

Call DocumentFolders(Session.GetSharedDefaultFolder(olShareName, olFolderInbox), 2)

Answer 1

Если вы собираетесь писать на рабочем листе, вы можете использовать это:

Public Sub myTest()
Dim xlWb As Workbook
Dim xlWs As Worksheet

    Set xlWb = Application.Workbooks.Add   '<--- Create the New Workbook
    Set xlWs = xlWb.Sheets.Add    '<--- Create the Worksheet

    With xlWs
        .Range("A1") = "Received Time"  '<--- Write on First Sheet, Range A1

        .Cells(1, 2) = "Another Received Time"  '<--- Do the same but on Range B1
    End With

End Sub

Надеюсь, это поможет вам!