尝试写入单元格（应用程序定义或对象定义错误）

Question

我有以下代码：

{{1}}

我的想法是，我想将wb.Name粘贴到单元格，其中num从1开始并递增，从而产生一个很好的文件名列。 我已经使用VBA 3天了，并且已经走到了尽头，任何帮助都会很棒。

Answer 1

假设Num已设置为有效值而不是0，而wb指的是有效对象，则应从范围地址中删除冒号，且不存在SetValue VBA范围的方法：

Range("A" & num).Value = wb.Name

Answer 2

很少有事情要注意..

1. 答：x不是有效范围（假设您的情况下为num是一个整数并指定非零值）
2. .SetValue不是有效的方法，因此将其更改为

y.Sheets（＆＃34; Sheet1＆＃34;）。范​​围（＆＃34; A＆＃34;＆amp; num）.value =（wb.Name）

1. 由于它的字符串比较，你的If条件可能无效，除非你改变它绝对匹配if（a = 0）之类的事情。

记住，＆＃34;如果string1等于string2，则StrComp函数将返回0.＆＃34;

1. 您不需要为每个匹配的值激活目标工作簿，您可以简单地引用它而无需激活它。如果要激活在新的Excel实例中打开的新工作簿，这实际上可能会失败。

2. 请记住，在excel＃N / A之前没有单个Quote（内部单元格）被视为reserver工作NA并且无法使用StrComp方法进行比较。相反，你可以简单地使用ISNA（），如果你想要的比较是＆＃34; #N / A＆＃34;。但是它在VBA中不可用，因此使用替代方法。

这是简化版。如果它失败了，请告诉我。

unsigned char *ptr = strtok(unscharbuff,"-");
    // is assignment also ok to unsigned char?