从Excell中获取文件名的单元格名称

Question

我的代码存在问题：

Sub SavePDF()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="\\TERA\Rok\Leromik izdani računi\" & Range("B8").Value & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub

我无法从单元格B8获取名称到我的.pdf名称。尝试保存时出现以下错误：

Answer 1

您在保存后尝试打开PDF文件时看到的是错误，有时在创建PDF文件后，即使您手动关闭PDF文件，PDF阅读器也可以保持打开状态。在VBA中从C＃程序创建PDF时，我在很多场合遇到过这种情况。

这是给你带来麻烦的路线。但是，将其更改为import pygame pygame.init() display_width = 800 display_height = 600 gameDisplay = pygame.display.set_mode((display_width,display_height)) pygame.display.set_caption('Ninja Game') clock = pygame.time.Clock() carImg = pygame.image.load('car.png') def car(x,y): gameDisplay.blit(carImg,(x,y)) x = (display_width * 0.45) y = (display_height * 0.8) crashed = False while not crashed: for event in pygame.event.get(): if event.type == pygame.QUIT: crashed = True gameDisplay.fill(white) # here car(x,y) pygame.display.update() clock.tick(60) pygame.quit() quit() 也无济于事。此外，即使文件名是完全合法的名称，也会发生此错误。

False

如果您想解决此问题，下面的代码将允许您将文件保存到目的地，如果碰巧与PDF阅读器打开连接，它将在保存后忽略打开并保存到您选择的位置。因此，请注意，如果在使用以下代码后发生此错误，则保存后PDF文件将无法打开。

只需添加此内容OpenAfterPublish:=True

即可

On Error Resume Next

另外，我更喜欢保存文件，确保我不会获得相同的文件名，因此请确保Sub SavePDF() On Error Resume Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="\\TERA\Rok\Leromik izdani računi\" & Range("B8").Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 中的值永远不会相同会有很大帮助。