我在使用Access中的VBA模块在excel电子表格中创建新表格时遇到了问题。
下面是我的代码:
Option Compare Database
Option Explicit
Sub QueryExportMod()
Dim db As DAO.Database
Set db = CurrentDb
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Ope
嗨,这是VBA的新鲜事,我很挣扎。基本上,我试图使用excel来增加风力涡轮机和太阳能电池板的数量,直到预算达到为止。
Dim Turbines As Integer, SolarPanels As Integer
If Range("Total_Budget") < 50000 Then
For Turbines = 1 To 10
For SolarPanels = 0 To 1000 Step 50
Range("TNumber") = Turbines
Range(
我试图在excel中创建一个密度图。映射将放在一个独立的工作表中,然后存储数据。我现在遇到的问题是能够在单独的工作表中访问数据,然后才能访问运行我的vba函数的工作表。我想我可以这样做:
Dim row As Range
' Loop through rows 4 -> 550
For x = 4 To 550
Set row = Worksheet(1).Range(Cells(x, 1), Cells(x, 24)) ' get range of cells for further processing
Next Counter
问题是,当我运行代码只是为了
我有一个comboboxin excel,基于其中选择的项,我想将数据从一个工作表复制到另一个工作表。下面是代码的一部分,当我运行它时,我得到了“运行时错误1004”,我是在VBA中启动的
Private Sub ComboBox1_Change()
Dim firstLimit As Integer
Dim secondLimit As Integer
firstLimit = 2
secondLimit = 2
Application.ScreenUpdating = False
Worksheets("output&
我对vba有一些问题。我在excell中有一个按钮,如果我在excell中运行makro,它需要的时间是从VBA developer运行的两倍。如果我从VBA developer运行,它会正确地设置我的边框和背景颜色(我尝试了几次从按钮运行makro )。如果我从按钮excel运行代码,它只格式化(bg颜色,边框)前20行,但vba开发人员格式化所有行。下面是我的代码。问候
Sheets("Master plan").Cells.Clear
lrm = 1
With Worksheets("Mater plan")
For Each ws In She
下面是用于分析数据库中dba_objects中的无效dba对象及其与无效对象一起返回的查询:
select do.STATUS as CODE_STATUS, do.OBJECT_TYPE, do.OWNER, do.OBJECT_NAME from dba_objects do
WHERE UPPER(do.OBJECT_TYPE) IN ('TABLE', 'VIEW', 'FUNCTION', 'PROCEDURE', 'PACKAGE', 'PACKAGE BODY') AND UPPER(
我有3个类:A、B和C,它们都位于同一个名称空间:foo。我在C内部创建了一个A实例
set object [::foo::C \#auto $param]
$b addObject $object ;# b is a instance of the B
但是在B内部,我不能使用对象:它说:无效命令名C0
如何创建Itcl对象并将其从一个类传递到另一个类?
我正在尝试在Access 2010和Access 2003中使用VBA对电子邮件的后期绑定。2003提示我“无法完成操作。有一次或多个参数值无效。”而2010给了我“无效的过程调用或参数”。我已经完成了这一步,但在接近底部的.send上失败了。我的绑定设置错误了吗?我试图在参考中不使用Microsoft对象库的情况下做到这一点。
谢谢。
'Refers to Outlook's Application object
Dim appOutlook As Object
'Refers to an Outlook email message
Dim appOutlookMsg
我有这样的代码:
class A
{
public:
unsigned long a;
static const unsigned long b = sizeof(a); // "error C2327: 'A::a' : is not a type name, static, or enumerator" in VC++
};
我在VC++中有编译器错误,在IAR中没有错误。哪个编译器是对的,C++标准是怎么说的?
谁能告诉我我做错了什么,我是VBA的新手,我有以下代码。我想打开几个excel文件,并将"Cash“选项卡保存为pdf格式的特定文件夹。我遇到的问题是,它试图将文件夹保存到"Test“文件夹,而不是"Cells(r,3)”所指示的文件夹,因此在保存第一个PDF文件后,我得到一个错误,因为它们具有相同的名称。任何帮助都将不胜感激!
Sub Cash_PDF_()
r = 2
Do While Cells(r, 5) <> ""
Workbooks.Open FileName:="H:\Investment\Fund Folders
int main()
{
int n = 1;
int* const p = &n; // ok
*p = 2; // ok as expected.
p = 0; // error as expected.
int& const m = n;
// error: 'const' qualifier may not be
// applied to a reference
return 0;
}
为什么C++中没有像const指针那样的const引用?
设计背后的理由
我有点困惑。我创建了一个带有宏的按钮,该宏可以从实际工作表s中的另一个工作表s0复制选定的单元格( s和s0都是字符串变量)。
Sheets(s0).Range("D56:K80").Value = Sheets(s).Range("L2:S26").Value
而且一切都很好。但是,如果我尝试编写一些更灵活的东西,比如可以更改起始行的范围。
x = Cells(2, 4).Value 'x is a number defined by user
Sheets(s0).Range(Cells(56, 4), Cells(80, 11)).Value =
我是VBA的新手,一直在尝试自动化一些财务报表。下面是我拥有的子过程:
Sub normdata()
Dim numofstocks As Integer
Dim numofdatapoints As Integer
Dim numberofiterations As Integer
Dim averageposition As Integer
numofstocks = Application.CountA(Sheets("Static").Range("B:B")) - 1
Sheets("NormData").Range("A2
我使用的一个非Microsoft应用程序支持VBA。我正在尝试将一个文件解析为一个数组,下面是我找到的示例代码
Sub parseFile()
Dim file As String
file="c:/Users/Me/Documents/test.csv"
Open file For Input As #1
Dim data(2,5) As String '2,5 dummy values for test
Dim Line As Integer
Line=0
Do Until EOF(1)
我试图在VBA中为一些与矩阵相关的操作定义一个动态范围,如下所示:
Dim Range1 As Range, Range2 As Range
'...
'define some indexes
'...
Set Range1 = Sheets("Sheet1").Range(Cells(rowFirst, colFirst), Cells(rowEnd,colEnd))
但是我得到了运行时错误#1004,我不知道为什么以及如何修复它。
我是VBA的新手,所以我希望你能帮我。
感谢大家!
备注:由于我需要在工作表中从一个矩阵移动到另一个矩阵,rowFirs
我的VBA已经变得生锈了,但是我现在需要它来下载一些数据。
这个例程可以工作,但是我确信,在过去的10年(至少)中,出现了一些更快/更少的代码来做同样的事情。任何帮助都很感激。请原谅我的VBA的非标准套管。
Public Function GetSymbols() As Variant
Dim ws As Worksheet
Set ws = Sheets(SymbolSheetName)
Dim tempRange, cCell As Range
Set tempRange = ws.Range(SymbolStartCell)
Set tempRange = Range(tempRan
在处理我的PowerPoint宏时,我注意到了以下内容:
要获取当前的活动幻灯片,请执行以下操作:
Dim currSlide As Slide
Set currSlide = Application.ActiveWindow.View.Slide
要获取新创建的文本框:
Dim textbox As Shape
Set textbox = currSlide.Shapes.AddTextbox(...)
我是VBA的新手,使用过Java、C++和C#。为什么必须在上面使用Set?为什么使用Slide & Shape会产生错误?在这方面,VBA在变量声明的工作方式上有什么不同?
Excel/VBA编译器似乎不能在编译时捕获无效属性。这里有一个简单的例子:
Option Explicit
Sub CompileExample()
Application.Calculzzzzzzzzation = xlCalculationAutomatic
End Sub
当然,它会在运行时失败,但可以很好地编译。通常,这对我来说不是问题,但我正在尝试编译一些机器生成的代码,以避免明显的错误,而不是执行它。有没有办法强制编译器执行严格的检查?
我试图在我的vba代码中引入一个公式,并且我在它中得到了一个错误。请查看代码,并分享您的想法。
这是我用VBA代码编写的excel函数:
GetUniqueCount(Range,Value)
下面是试图利用它的VBA代码:
Sheets("sheet2").Activate
With ThisWorkbook.Sheets("sheet2").UsedRange
lastrow = .Rows(.Rows.Count).Row
End With
For i = 14 To lastrow
我正在用VBA编写一个脚本,在CorelDraw中创建一个绘图。我很难把课文放在中心位置。以下是CorelDraw的宏编辑器中正常工作的代码:
Dim s2 As Object
Dim Txt As Object
Dim test As String
Dim returntest As String
returntest = "Test~Test1234~Test56~Test789"
test = Replace(returntest, "~", Chr(13))
Set s2 = CorelApp.Active
这两条MySQL语句之间有什么区别?
作品:
select *, count(mycol) c from mytable group by mycol;
不管用:
select count(mycol) c, * from mytable group by mycol;
第一条语句如我所期望的那样工作,而第二条语句给出了一个语法错误。为什么命令很重要?
我很难从谷歌那里找到答案,因为我不完全确定我问的问题是否正确。
编辑:
这是净化后的错误消息。如果相关的话,我使用的是MySQL工作台。
错误代码: 1064。您的SQL语法出现了错误;请检查与您的MySQL服务器版本相对应的手册,以获得在第
完全是VBA的新手,所以请原谅这个琐碎的问题。我只是尝试在另存为csv之前打开xls文件。
Workbooks.Open行给出了运行时错误。我做错了什么?
Sub vba_code_to_convert_excel_to_csv()
Set wb = Workbooks.Open("C:\EOD_Files\PROALPHA_08022017.xls")
wb.SaveAs FileName:="C:\EOD_Files\PROALPHA_08022017.csv", FileFormat:=xlCSV, CreateBackup:=False
End S