Question

我正在尝试引用代码中文本框中的excel书的文件路径。

以下是我尝试的但是我收到错误说

＆＃34;下标超出范围＆＃34;。

我遇到的问题是Workbooks.Open (txtOutput.text)

等行

Private Sub cmdRun_Click() 
 Dim countx As Integer 
countx = Workbooks(txtFilePath.Text).Worksheets.Count
Workbooks.Open (txtOutput.Text) 
For I = 1 To countx

Workbooks(txtFilePath.Text).Worksheets(I).range(txtRange.Text).CopyPicture xlScreen, xlBitmap
Workbooks(txtFilePath.Text).Worksheets(I).Paste
Destination = Workbooks(txtOutput.Text).Worksheets("Sheet1").Cells(30 * I + 1, "A") 
Next I 
Workbooks(txtOutput.Text).Worksheets("Sheet1").Pictures.Select Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft 
End Sub

Answer 1

通常此错误是因为您尝试使用未退出的对象。

此外，如果您没有将工作簿设置为变量，则无需添加＆＃34;（）＆＃34;

所以行

<?php

$string = the_title();

$im = imagecreate(150, 20); // image size 150x20px
imagecolorallocate($im, 255, 255, 255); // background white
$text_color = imagecolorallocate($im, 0, 0, 0); // text color black

imagestring($im, 3, 5, 5, $string, $text_color); // append string to image

header('Content-type: image/png'); // filetype
imagepng($im, 'image.png'); // save as image.png
imagedestroy($im); // free up memory

应该是

Workbooks.Open (txtOutput.Text)

我稍微清理了你的代码

Workbooks.Open txtOutput.Text

我希望这有帮助:) 感谢

文本框vba中的引用文件路径

1 个答案: