我正在编写一个excel应用程序,它从Access数据库中提取工作.当用户打开Excel工具时,数据表需要从我创建的Access数据库中填充其中一个工作表.我一直在excel中编写VBA代码,我收到运行时错误:"429"ActiveX组件无法创建对象.
其他问题都是从Access编写的,但我相信我需要从Excel工作簿文件中编写此代码.我编写的代码在Workbook_Open()函数中,以便在用户打开文件时收集数据.非常感谢你的帮助.顺便说一句,我正在使用Access 2007和Excel 2010.
Private Sub Workbook_Open()
'Will fill the first listbox with data from the Access database
Dim DBFullName As String
Dim TableName As String
Dim FieldName As String
Dim TargetRande As String
DBFullName = "D:\Tool_Database\Tool_Database.mdb"
Dim db As DAO.Database, rs As Recordset
Dim intColIndex As Integer
Set TargetRange = Range("A1")
Set db = OpenDatabase(DBFullName)
Set rs = db.OpenRecordset("SELECT * FROM ToolNames WHERE Item = 'Tool'", dbReadOnly)
' Write the field names
For intColIndex = 0 To …Run Code Online (Sandbox Code Playgroud) 我正在Excel中构建一个应用程序,使用户可以从已构建的现有基于Excel的工具列表中进行选择.他们将选择特定工具并点击"创建新"按钮.单击此按钮后,将要求用户命名该文件.输入名称后,需要创建一个新工作簿并将其放在该特定工具的项目文件夹中.我在代码中实现此功能时遇到问题.我已经能够找到实现从活动工作簿复制模板的代码示例,但没有用于完全创建另一个excel文件中的内容.
我相信我需要复制用户需要重新创建的工作簿,然后更改名称并将文件放在所需的位置.
我会发布一些代码来展示我到目前为止所做的工作,但我还没有真正取得进展.
谢谢,
我有一个处于AdHoc模式的Wifly模块(即它创建了自己的本地wifi网络),我想在我的iOS应用程序中编程连接到Wifly并来回发送数据.
当从计算机与Wifly通信时,您必须通过终端仿真器发送命令.有谁知道如何从iOS应用程序这样做?
谢谢
我正在为iPad构建一个带界面构建器的应用程序.滚动视图占据屏幕的大部分,除了底部的一小部分.滚动向下启用.在底部的小部分(不在scrollview内),有一个连接到IBAction的UIButton:
- (IBAction)submit:(id)sender;
Run Code Online (Sandbox Code Playgroud)
并实施如下:
- (IBAction)submit:(id)sender
{
NSLog(@"submit called");
}
Run Code Online (Sandbox Code Playgroud)
我已经无数次地将IBActions连接到IB中的按钮并且从未遇到过问题......但由于某种原因,这并没有被调用.我通过选择按钮 - >连接检查器 - >在里面修改 - >文件所有者 - >提交来连接它...有人有这个问题吗?
我正在尝试用Python解析一些数据我有一些JSON:
{
"data sources": [
"http://www.gcmap.com/"
],
"metros": [
{
"code": "SCL",
"continent": "South America",
"coordinates": {
"S": 33,
"W": 71
},
"country": "CL",
"name": "Santiago",
"population": 6000000,
"region": 1,
"timezone": -4
},
{
"code": "LIM",
"continent": "South America",
"coordinates": {
"S": 12,
"W": 77
},
"country": "PE",
"name": "Lima",
"population": 9050000,
"region": 1,
"timezone": -5
}
]
}
Run Code Online (Sandbox Code Playgroud)
如果我想将"metros"数组解析为Python类Metro对象的数组,我将如何设置该类?
我刚在想:
class Metro(object):
def __init__(self):
self.code = 0
self.name = ""
self.country = ""
self.continent = ""
self.timezone …Run Code Online (Sandbox Code Playgroud) 我之前已经做了好几次了但是由于某些原因我无法通过这个帖子...我尝试了设置为_POST且没有的变量的php脚本......当它们未设置为发布时它工作精细.这是我的iOS代码:
NSDate *workingTill = timePicker.date;
NSDateFormatter *formatter = [[NSDateFormatter alloc] init];
[formatter setDateFormat:@"HH:mm"];
NSString *time = [formatter stringFromDate:workingTill];
NSString *post = [NSString stringWithFormat:@"shift=%@&username=%@", time, usernameString];
NSData *postData = [post dataUsingEncoding:NSUTF8StringEncoding allowLossyConversion:NO];
NSString *postLength = [NSString stringWithFormat:@"%d", [post length]];
NSURL *url = [NSURL URLWithString:@"http://wowow.php"];
NSMutableURLRequest *request = [NSMutableURLRequest requestWithURL:url cachePolicy:NSURLRequestUseProtocolCachePolicy timeoutInterval:60.0];
[request setHTTPMethod:@"POST"];
NSLog(@"%@", post);
[request setValue:postLength forHTTPHeaderField:@"Content-Length"];
[request setHTTPBody:postData];
[NSURLConnection connectionWithRequest:request delegate:nil];
[self.navigationController popToRootViewControllerAnimated:YES];
Run Code Online (Sandbox Code Playgroud)
这里是php的一大块,POST变量不在正确的位置?
<?php
function objectsIntoArray($arrObjData, $arrSkipIndices = array())
{
$arrData = array();
// if input is object, …Run Code Online (Sandbox Code Playgroud) 我正在为heroku部署一个卑鄙的应用程序,并且正在使用bower和grunt.我应该在git repo中包含我的节点模块吗?如果没有,我真的不确定我需要如何部署,因为post脚本引用了节点模块的bower安装.我应该在git repo中包含我的bower_components吗?这似乎不是我应该因为不是后记的全部内容执行bower安装在heroku上?但是当我这样做时,我得到一个错误.这是我的凉亭依赖:
"dependencies": {
"angular": "1.2.x",
"angular-mocks": "~1.2.x",
"jquery": "1.10.2",
"bootstrap": "~3.1.1",
"angular-bootstrap" : "0.11.0"
}
Run Code Online (Sandbox Code Playgroud)
还有我的package.json
{
"main": "server.js",
"engines": {
"node": "0.10.29"
},
"dependencies": {
"express": "~3.4.x",
"mongoose": "~3.6.x",
"mongodb": "^1.4.0",
"ejs": "*",
"email-templates" : "1.0.0",
"crypto": "0.0.3",
"lodash": "~2.4.1",
"aws-sdk": "2.0.0-rc11",
"passport" : "~0.1.17",
"passport-local" : "~0.1.6",
"connect-flash" : "~0.1.1",
"winston": "0.6.x",
"gm" : "1.16.0",
"apn" : "1.5.2",
"bcrypt-nodejs" : "latest",
"angular-wizard": "latest",
"point-in-polygon": "latest",
"node-mailgun": "0.0.2",
"nodemailer" : "0.7.0",
"passport-facebook" : "1.0.3"
},
"devDependencies": { …Run Code Online (Sandbox Code Playgroud) 我有一个如下所示的架构:
var UserSchema = new Schema({
name : { type: String, required: true },
email : { type: String, lowercase: true },
fences : [{type: Schema.Types.ObjectId, ref: 'Group'}]
});
var GroupMemberSchema = new Schema({
user : { type: Schema.Types.ObjectId, ref: 'User', required: true },
status : { type: String, default : 'Invited' }
});
var GroupSchema = new Schema({
name : String,
members : [GroupMemberSchema],
type : String
});
Run Code Online (Sandbox Code Playgroud)
组和用户将导出为其自己的集合。我有一个端点 api/users/me,我想在其中获取我的用户和所有组。在组内,我想填充我的成员的用户。我用这段代码可以正常工作:
User.findOne({
_id: userId
})
.populate('groups')
.exec(function(err, user) {
if …Run Code Online (Sandbox Code Playgroud) 我有apache和mySQL运行默认的MAMP端口(分别是8888和8889),一切似乎都有效,但是当我将端口切换到80为Apache和3306为mySQL时,mySQL服务器无法重启.
我正在尝试将MAMP设置为在这些端口上运行,因为显然这对于在Dreamweaver中进行开发是最佳的...因此,鉴于我希望为Dreamweaver提供理想的开发环境,是否有办法使用3306端口?或者,潜在的问题是什么?
谢谢
我想在用户第一次打开应用程序时显示警报视图.在他们打开应用程序后,他们点击按钮,该按钮推动导航控制器堆栈上的表格视图.如果这是第一次打开表视图,则应该有一个警报视图,显示告诉用户他们可以单击要编辑的单元格.
我怎样才能做到这一点?
谢谢
我试图复制位于一个文件路径的整个未打开的工作簿,重命名并将其保存到新目录...我有重命名和保存的问题,这是我的代码到目前为止:
Private Sub new_file_Click()
Dim ActBook As Workbook, NewFile As String
Dim ToolFilePath As String, DestFilePath As String, NewToolName As String
NewToolName = InputBox("Enter the Tool Name.")
MsgBox (Tools_ListBox.Value)
ToolFilePath = GetToolPath(Tools_ListBox.Value)
ToolFilePath = GetPath & ToolFilePath
DestFilePath = GetPath & GetDestPath(Tools_ListBox.Value) & NewToolName & ".xlsm"
Set ActBook = Workbooks.Add(ToolFilePath)
ActBook.SaveAs DestFilePath
ActBook.Close True
Run Code Online (Sandbox Code Playgroud)
我要复制的文件位于ToolFilePath中的路径中,我想要将其重命名为的是DestFilePath,其中包含excel .xlsm扩展名.
我哪里错了?
谢谢
我正在为访问数据库编写一个sql语句,无论输入如何,都将返回一个唯一值.我正在使用此代码但是我在执行语句中遇到类型不匹配.
strSQL = "SELECT FilePath " _
& "FROM ToolFiles " _
& "WHERE Project_Num = '" & theSelectedProj & "'" _
& "AND Tool_Name = '" & theSelectedProjName & "'"
filePath = cn.Execute(strSQL)
Run Code Online (Sandbox Code Playgroud)
有没有办法从sql语句返回一个字符串?
谢谢
我有一个用户窗体,当用户单击工作表中的按钮时打开该用户窗体.单击按钮后,如果用户输入了一些数据,然后决定关闭表单,则先前输入的数据将保留在表单中.如何(在代码中)我摆脱了那些数据,所以每次点击按钮时它都会以默认值打开?
目前我只是用
form.Show
Run Code Online (Sandbox Code Playgroud)
单击按钮时
form.Hide
Run Code Online (Sandbox Code Playgroud)
当用户点击表单中的取消按钮时.
谢谢!