所以我做了一个Excel宏,当我试图运行它时,它总是崩溃。这就是它:
result = "fail"
j = 4
Do While result = "fail" Or Cells(2, j) <> " "
If Cells(2, j).Value >= 15 Then
result = "pass"
Else
j = j + 1
End If
Loop
我正在尝试使用Dir迭代文件,并且我知道它在Mac上的工作方式与windows不同。很有帮助,但我一直无法实现建议的解决方案。对Dir的第一个调用成功地返回了所需的文件名,但是第二个调用崩溃了excel。我想实现这样一个模式:
Sub printFileNames()
Dim path as String
Dim fileName as String
path = ThisWorkbook.Path & "/SUBFOLDER/"
fileName = Dir(path, MacID("XLSX"))
While fileName &
我需要从网站获取数据,我正在使用SHDocVw.InternetExplorer和MSHTML.HTMLDocument并获取数据。在获取每条记录并为每条记录创建新实例后,我使用了set IE = Nothing和IE.Quit,但只要IE停止响应或崩溃,宏就会停止。我只想在IE崩溃时跳过该记录,并从下一个记录恢复。是否可以忽略IE的每个弹出窗口,并从下一个记录恢复以获取数据。
For Each Cell In Selection
URL = Cell.Value
Set IE = New SHDocVw.InternetExplorer
With IE
我正在尝试使用Excel VBA来生成两个数字。介于1和11之间。如果数字相等,则应从随机重新生成第二个数字。如果第一个是8或9,那么第二个不应该是8或9。如果是,它应该再次从随机生成。
下面是我的代码:
Sub Foo()
Dim thisNum As Integer
Dim thatNum As Integer
thatNum = Int((11 * Rnd) + 1)
thisNum = Int((11 * Rnd) + 1)
Do While thisNum = thatNum
thatNum =
由于某些原因,下面的宏在完成时会使我的Excel崩溃。工作簿将保存,并将删除我要求它删除的工作表。然后它会使Excel崩溃,并询问我是否要重新启动它。有什么偶然的想法吗?这里的概念是,我们将excel链接到一个数据立方体,并希望创建一个“值副本”,其中只包含没有链接到数据库的公式的值。
Sub CreateVC()
'Set file path & target file name. Make sure you update the department within the file
'name in cell H2. I.E. change "Reporti
我正在尝试删除一个文本文件,其中包含文件名称标题中先前日期、月份和当前年份的一部分。
例如,如果今天是11月,这将是11个月,而上个月将是10个月。
所以我想删除包含月份编号10的文件,因为这是前一个月。
由于某些原因,我的代码导致excel崩溃和没有响应,谁能告诉我如何修改我的代码使其正常工作,谢谢
Dim iMonth As Integer
Dim iYear As Integer
iMonth = Month(Date) - 1
iYear = Year(Date)
Dim DirFile As String
DirFile = "P:\Log (" & iMon
下面的代码在我的大型工作簿上持续地使Excel 2016崩溃
Dim ws As Worksheet
Dim wb As Workbook
For Each ws In wb.Worksheets
ws.Visible = xlSheetVisible
Next ws
遍历代码,我发现它在对几十个工作表进行操作后崩溃,但没有对任何特定的工作表进行操作。当它崩溃时,我需要从任务管理器中删除Excel,有时它会将Windows10本身崩溃到BSOD。我怀疑是某种堆栈溢出问题。我尝试了遍历工作表名称列表,结果是一样的。有什么想法吗?
因此,如果有一个噩梦,语法和所有内容都是正确的,但逻辑似乎有缺陷:S这段代码的目的是删除不包含单词的行
Facility
和
Government
从B列中的所有单元格开始,从第2行开始
Sub lol()
Dim i As Integer
i = 2
'While i < LastRow <---- Use for real calc, LastRow calculated beforehand
While i < 4
If Cells(i, 2).Value <> "Facility" Then
ElseIf Cells
我有这段代码,可以正确地杀死任何正在运行的Excel进程。
public static void killExcel(){
while (isProcessRuning("EXCEL.EXE")){
Runtime.getRuntime().exec("taskkill /IM EXCEL.EXE");
}
}
public static boolean isProcessRuning(String serviceName) throws Exception {
Process p = Runtime.
我需要推进从excel电子表格读取的行的迭代,同时仍然在迭代器循环中。
try:
for r in range(insheet.nrows):
cdat = insheet.cell(r, 0).value
if not cdat == xlrd.empty_cell.value:
if hasNumbers(cdat):
#Strip digits to get Client pneumonic
#pdb.set_trace()
if
我目前正在尝试创建一个Excel代码,当在一个列中找到重复项时,该代码将删除整个行。我已经创建了代码,但由于某种原因,Excel每次运行时都会崩溃。有谁可以帮我?
Sub Test()
For i = 1 To 25
a = Cells(i, 1).Value
b = Cells(i + 1, 1).Value
If a = b Then
Rows(i + 1).Delete
i = i - 1
End If
Next i
End Sub
这里我要做的是从excel中获取所有的sql,使用python执行它们,并将数据导出到另一个名为output.xlsx的excel中。然而,结果覆盖了前面的结果。如何更改下面的代码,以便每当sql运行时,结果将保存在一个新的选项卡中?谢谢!
sql = excel_data_df['Query'].tolist()
i = 0
while i < len(sql):
cursor = connection.cursor()
stmn = (sql[i])
print(stmn)
cursor.execute(stmn)
while
我已经创建了一个宏与一些帮助这个网站的优秀人员,以确定是否在这个excel中的列被填充,然后分离他们为一个更大的项目。我的问题是,代码只是崩溃(加载,直到我点击,在其中我被告知excel是没有响应的) excel。我能得到一些帮助吗
Option Explicit
Public Sub emptysinder()
Dim i As Long
Dim r As Range
Dim num As Integer
For i = 1 To 9
Set r = Range("F1").Offset(0, i - 1).Res
当我在Excel表上运行VBA代码时,我遇到了excel崩溃的问题。
我试图在工作表更改中添加以下公式:
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1"
End Sub
当运行这段代码时,我收到一条消息:"excel遇到问题,需要关闭“,excel关闭。
如果我在Worksheet_Activate()过程中运行代码,它可以正常工作,不会崩溃
Privat
我是一个全新的VBA用户,正在尝试根据日期范围复制和粘贴数据。在第一列中我有日期,在第二列中我有我想要复制和粘贴的数据。CurYear指的是我正在查找的范围内的结束日期,而StatDate指的是我正在查找的范围内的开始日期。当我运行这段代码时,它会使Excel崩溃。请帮帮忙,我很迷茫
Worksheets("Weekly").Select
Dim nRows As Integer
Dim CurYear As Date
Dim StartDate As Date
nRows=Range("A1").CurrentRegions.Count.Rows
CurY
我试图查找A列和I列之间的最后一行数据,然后将值复制到下面为空的行。
每次运行它,Excel都会崩溃。
Sub insert_row()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
LastRow = LastRow
Dim lastrow_start As String
Dim lastrow_end As String
last
我有一个问题,在vb.net中,如何在vb.net中验证excel中的两个值相同
例如,我定义了3个列表
Public NSPS As New List(Of String)
Public CONTAINER As New List(Of String)
Public CONTAINER2 As New List(Of String)
我有两个excel文件,其中容器和CONTAINER2是id
因此,我需要创建第三个excel文件,它只过滤在两个excel中重复的id。
意思是如果我在两个文件中有一个id: CARU9891569,只有这样它才会转移到生成的excel中
而这两个exce
当我试图找到没有保存在excel中的值时,我无法停止循环并从MessageBox获得一条消息
killExcel();
OpenFileDialog file = new OpenFileDialog();
string filename = Path.GetFileName(file.FileName);
if (file.ShowDialog() == DialogResult.OK) //if there is a file chosen by the user
{
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
DialogResult result = DialogResult.None;
if (isExcelIsRunning())
{
result = MessageBox.Show("Excel is still running. Please save your work and close Excel, and then click \
可以在excel工作表中创建while循环吗?我不想使用VBA或其他工具,只想使用excel工作表。我正在寻找一种通用的解决方案来解决以下问题:
condition_met = False
while not condition_met:
...
...
if (some_condition):
condition_met = True
我在VB.NET中连接Excel时遇到了一个问题。当我在单元格中循环查找工作表中最后一个非空行时,当我将空单元格的值与"“I recieve:NullReferenceException it”“进行比较时。对象引用未设置为对象的实例。“
下面是一段代码:
Dim xlApp As New Excel.Application
Dim xlWb As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim lRow As Integer = 1
Dim excelFilePath As String
Usi
如何在后台运行无限循环,同时继续执行脚本?
示例“脚本”:
while true; do something_in_the_background; done
do_something_while_the_loop_goes_on_in_the_background
for 1 2 3; do somethingelse; done
exit 0
这一点(注意到&)似乎会在一段时间后使整个系统崩溃:
while true; do
something_in_the_background &
done
do_something_while_the_loop_goes_on
当我试图在列中添加前10个偶数时遇到了一个问题,而不管输入的输入数是多少。
当输入少于10个时(在我的示例7中),如果在最后一个输入之后没有更多的数字,那么这个问题就会发生,但是当它崩溃Excel时,它似乎无法工作;很可能是因为它循环无限。
原来的代码很好,直到我输入了10个以下偶数。当我这样做时,它会无限循环并崩溃,所以我在代码中输入了一个强有力的中断(因此是Count=999),但它似乎不起作用。
Sub TenPosInt()
Dim Total As Integer, size As Integer, myRange As range
Dim Count As In
这段代码的作用是找到第一个值,我需要它来捕获第一个包含"120“的单元格,这意味着120,7120,31200所有的单元格都包含重复项。另外,ID代码在C列中,如何将D列中的数据添加到列表框的第二列中? Dim AGCN As Long
Dim AGCL As String
Dim AGNN As Long
Dim AGNL As String
Dim i As Long
Dim rng As Range
Dim rownumber As Long
Dim AGC As Range
Dim AGN As Range
Dim firstaddress As Long
Dim nexta
一般问题..。
如果我在VBA代码(基于Excel)中挂起/退出/中断'For‘循环,会有什么危险?
下面是我的代码:
For i = 1 to Sheets.Count
'check stuff
'do stuff
if MsgBox("blah blah", vbyesnocancel, "blah") = vbyes then
'do stuff
GoTo loopescape
End if
Next
loopescape:
'rest of c
嗨,我尝试了3种不同类型的颜色函数UDF,它们可以在我的Excel 2013网上找到。但是每次我刷新时它都会崩溃.有一个修复程序来停止此操作(只有在手动完成时,excel才能刷新它)
这是代码:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True
我有一个小问题,我需要遍历excel行。
然而,代码崩溃了。如果我只是通过裁剪F8一步一步地运行它,这是可以的。但是如果我只想通过F5来运行它,它就会崩溃...
我想连接外部源不是很快,但是我如何解决这样的问题呢?
lDate = ws.Cells(i, 2).Value
With appIE
.Navigate "www.thisisjusttheexampleweb.com"
'it usually breaks here or below
End With
Do While appIE.Busy
DoEvents
Loop
我在让我的代码运行它的条件循环和停止时遇到了问题。这就是我所拥有的:
Do While True
Dim i As Integer
i = 2
If Cells(i, 1).Value <> "" And Not IsError(Cells(i, 2).Value) Then
Range(Cells(i, 1), Cells(i, 22)).Copy
Range(Cells(i, 1), Cells(i, 22)).PasteSpecial
i = i + 1
Else