Question

我有一个带有名称列表的excel文件（names.xlsm），我想用不同的图纸创建另一个新的excel文件（separate.xlsx）。每张工作表的名称在eparator.xlsx中是在names.xlsx中的名称，并且每张工作表的第一个单元格是相同的名称值。

'''VBA

Sub copy_name()
    Dim MyCell As Range, MyRange As Range, ws As Worksheet

    Dim mybook As Workbook
    Set mybook = Workbooks("names.xlsm")

    Set MyRange = mybook.Sheets("names").Range("A2:A6") 'eg. five names'

    Dim target As Workbook
    Set target = Workbooks("separate.xlsx")

    i = 1
    For Each MyCell In MyRange
    Set ws = target.Worksheets.Add(After:=Worksheets(Worksheets.Count)) ' create new worksheet in target file
    ws.Name = MyCell.Value ' renames the new worksheet
    target.Sheets(MyCell.Value).Cells(1, 1) = MyCell 'copy the value of Mycell to target sheets
    i = i + 1
    Next

    Set mybook = Nothing
    Set target = Nothing
End Sub

''' 这是我的代码。它不断显示错误，我不知道如何调试。

Answer 1

您可以创建工作表并将其命名为一行。无需创建它，然后命名它。
您需要完全限定对象
我假设from django.contrib import admin from django.urls import path, include from django.views.generic.base import TemplateView from django.conf import settings from django.conf.urls.static import static urlpatterns = [ path('', TemplateView.as_view(template_name='home.html'), name='home'), path('admin/', admin.site.urls), path('users/', include('users.urls')), path('users/', include('django.contrib.auth.urls')), ] + static(settings.STATIC_URL, document_root=settings.STATIC_ROOT)中不存在与names.xlsm同名的工作对象。如果是这样，则您将不得不单独处理。

这是您要尝试的吗？

separate.xlsx

如何使用特定名称创建新工作表并将特定值复制到新工作表中

1 个答案: