excel为每行创建新工作表

Question

数据

第一页用于数据输入。每行代表一张服务票。每列将表示有关服务事件的数据，如序列号或型号。

期望的结果

对于包含特定字段（列a ~“票证号”）中数据的每一行，Excel将基于模板创建一个新的工作表（服务票证），并将相应行中的数据放入指定的单元格中。

提前感谢您提供的任何帮助。

Answer 1

我首先要说的是，您应该小心处理这一点，因为工作簿中的工作表数量是有限制的。但这里有一些vb中的代码。它应该为您提供在vba中完成它的逻辑。在引用工作表和单元格时会有一些不同。

您需要声明正在阅读的工作表

Dim ws As Excel.Worksheet
Set ws = ea.Worksheets(1)

它可能从工作表索引0开始，因此设置ws=ea。工作表（0）或者有类似Excel的东西。应用程序。活动表

下面是循环行并检查列A的值的逻辑。

dim lRow as integer
Do While lRow <= ws.UsedRange.Rows.Count
    If ws.Range("A" & lRow).Value <> "" Then Then
        'If cell A is not blank we then call the worksheet add function.
        'Pass the name you want the worksheet and the page setup arguments.
        WorksheetAdd ws.Range("A" & lRow).Value, xlPaperLetter, xlPortrait
        ws.name = ws.Range("A" & lRow).Value
    End If

    lRow = lRow + 1
    ws.Range("A" & lRow).Activate

Loop

您将需要这样的Worksheetad函数

Private Sub WorksheetAdd(szJobNumber As String, Papersize As XlPaperSize,     PageOrientation As XlPageOrientation)
Dim bDisplayAlerts As Boolean

    On Error GoTo ErrorHandler

    'Add worksheet to workbook.
    Set ws = ea.Worksheets.Add
    ws.Name = szJobNumber
    With ws.PageSetup
        .Orientation = PageOrientation
        .LeftFooter = "&D"
        .CenterFooter = "&A"
        .RightFooter = "Page &P of &N"
        .Papersize = Papersize
    End With
    On Error GoTo 0

Exit Sub
ErrorHandler:
    If Err.Number = 1004 Then
        If MsgBox("There has been an error(#1004). Contact support. Excel is not installed or produced an error. Also, check for default printer.",vbCritical,     "Information") = vbOK Then
            'Unload frmPTReports
            Exit Sub
        End If
    Else
        Err.Raise Err.Number, Err.Source, Err.Description
    End If
End Sub