(你想听我说什么)
(玲儿响铛铛)
第三方登录：查看: 451|回复: 6
新手求助，想将如下VBA编译成VB6的exe，怎样实现？最好能给出vb6源代码，我一直弄...
阅读权限10
在线时间 小时
本帖最后由 jyq007 于
11:47 编辑
新手求助，想将如下VBA编译成VB6的exe，怎样实现？最好能给出vb6源代码，我一直弄不好，先感谢了。
Sub 转换格式()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim txt, fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
& && &With fd
& && && &.AllowMultiSelect = True
& && && & If .Show = -1 Then
& && && && &&&For Each txt In .SelectedItems
& && && && && && &Workbooks.OpenText Filename:=txt, Origin:=936, DataType:=xlDelimited, Semicolon:=False, Comma:=True, Space:=False, Other:=False, Tab:=True
& && && && && && &Range(&a:u&).NumberFormatLocal = &@&
& && && && && && &ActiveWorkbook.SaveAs Filename:=Mid(txt, 1, Len(txt) - 4) & &.xls&, FileFormat:=xlExcel8
& && && && && && &'ActiveWorkbook.SaveAs Filename:=Mid(txt, 1, Len(txt) - 4), FileFormat:=xlExcel8
& && && && && && &ActiveWorkbook.Close True
& && && && &&&Next
& && && & Else
& && && && &&&Exit Sub
& && && & End If
& && &End With
阅读权限100
在线时间 小时
直接说需求吧，把原文件、想实现的效果模拟一下
阅读权限10
在线时间 小时
在excel中通过vba实现的效果是：双击按钮，出现文件浏览窗口，选择需要转换的txt文件，点击后，在本目录下自动生成相同文件名的xls文件。麻烦你提供一个VB6源码，谢谢。
阅读权限10
在线时间 小时
直接说需求吧，把原文件、想实现的效果模拟一下
在excel中通过vba实现的效果是：双击按钮，出现文件浏览窗口，选择需要转换的txt文件，点击后，在本目录下自动生成相同文件名的xls文件。麻烦你提供一个VB6源码，谢谢。
阅读权限20
在线时间 小时
论坛里有VB6的例子
阅读权限10
在线时间 小时
论坛里有VB6的例子
怎么搜不到？请提供个连接，谢谢。
阅读权限20
在线时间 小时
在word的那边 做插件的 你去搜
最新热点 /1
ExcelHome携手凤凰新华书店以及北大出版社投入巨资回馈粉丝！最新畅销图书《Excel 2016应用大全》折上加折，最终购买价=5.2折！简直没下限！并且，本书还参加了京东满110减50活动！活动时间，即日起至4月20日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师新手求助，一直显示Running Latex_百度知道
新手求助，一直显示Running Latex
我有更好的答案
& 您三星官网没提供刷机软件由于刷机存风险自行刷机导致手机问题能影响包修我建议您自行刷机若手机系统故障使用或自行刷机导致手机现问题建议您机器送三星售服务由工程师帮助检查处理&
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看： 回复：19
新手求助，车胎扎了一个钉子，现在怎么办啊？？？在线等[待解决]
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
您好，精华帖至少要有15张图片，文字不少200个字！并且是原创内容，布局合理。
楼主 电梯直达 楼
现在咋办？
如果你对以下车友回答满意，请设置一个推荐答案！
相关提问：
申请精华帖
您的申请已经提交，请耐心等待审核
1、审核通常是1-3个工作日 2、审核结果我们会通过系统消息给您答复
申请精华帖
您已经超过申请限制，不可再申请
您的申请连续三次被驳回，已经无法再申请精华帖，谢谢你对我们的支持！如有疑问，可以 投诉/建议&&
申请精华帖
您有发现精华的慧眼，赞一个！
1、我们会在1-3个工作日内完成审核
申请精华帖
此贴已经申请精华中，谢谢您的支持！
1、我们会在1-3个工作日内完成审核
申请精华帖
您好，该帖子经过审核后，发现内容不符合精华要求，无法申请成为精华，谢谢你的支持！
申请精华帖
抱歉，帖子还没达到精华标准
精华帖至少要有15张图片，文字不少于200个字！您的帖子未达到要求，不能申请精华。 查看精华帖标准
rel="nofollow" href="http://my.pcauto.com.cn/7735887/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/7735887/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
去修胎店，然后拔掉。不漏走人，漏就补胎。
rel="nofollow" href="http://my.pcauto.com.cn/9117130/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9117130/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
坐等胎压报警出现！
rel="nofollow" href="http://my.pcauto.com.cn/6701138/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/6701138/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
沙发正解，不过看样子应该没炸透，这种钉子不会太长，不放心就换上备胎。
rel="nofollow" href="http://my.pcauto.com.cn/9715572/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9715572/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
先拔了，然后等两天，看看能不能长好
rel="nofollow" href="http://my.pcauto.com.cn/9890718/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9890718/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
到轮胎店先拔了，内补，外面做一下硫化，完全看不出来，也不影响安全！
rel="nofollow" href="http://my.pcauto.com.cn/9616370/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9616370/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
Q：有位车主询问――车胎在行驶中扎了颗钉子，已经有几天时间了，车胎并没有漏气，是不是就不需要处理了？A：因为轮胎是真空胎，扎了钉子不会马上漏气，但随着时间的推移，气会慢慢漏的。车主如果发现轮胎扎了钉子，千万不能掉以轻心，应该马上去修理店检查。车胎扎了钉子即使没有漏气也要及时维修，扎有钉子的车胎存在安全隐患，在高速行驶时会容易出现爆胎。值得注意的，不要擅自拔掉钉子，如拔掉有可能出现漏气现象，导致车子开不了。这时，车主可以更换备胎后去维修轮胎；如果没有漏气可以先不要拔下钉子，慢速行驶到维修地点。
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
擦，我的左后轮也被扎过，被我给拔出来了，有5mm深，不知道漏不漏气。&&楼上说得对，应该去补一下！&&不过之前拔被的地方现在不好找吧？
rel="nofollow" href="http://my.pcauto.com.cn/9906555/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9906555/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
不漏气&干嘛要补？
rel="nofollow" href="http://my.pcauto.com.cn/9308372/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9308372/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
咋和我被扎的?子一?喃...我最後十???了胎
rel="nofollow" href="http://my.pcauto.com.cn/6775138/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/6775138/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
正确做法。马上拔掉，叶点口水在哪个破口上仔细看看有没有气泡。没有就没事继续开。有气泡，马上换备胎。你要让钉子在上面不拔，开一会越扎越深，不漏才怪。
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
rel="nofollow" href="http://my.pcauto.com.cn/9740882/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/9740882/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
果断开去补胎地，拔钉，处理，时间长了是隐患
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
扎透了。已经补好了，谢谢
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
谢谢！已经搞定
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
我热补胎花了二十块，我的扎透了
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
我的二十。。。
rel="nofollow" href="http://my.pcauto.com.cn//fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn//pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
rel="nofollow" href="http://my.pcauto.com.cn/7934734/fan/"
target="_blank" rel="nofollow" id="follow粉丝
rel="nofollow" href="http://my.pcauto.com.cn/7934734/pick/"
target="_blank" rel="nofollow" id="fan精华
最后修改IP： 192.168.240.195/61.145.113.113
我的没扎透，车胎还在用
只可添加一张图片，多张图片请选高级模式
您需要登录后才可以发帖&&&&&&│&&&&│&&&&
明锐更多相关问题15:20 提问
新手求助spring一用注解就报错
@Repository("aadaoimpl")
public class aaimpl extends HibernateDaoSupport implements aadao
这是dao层的
@Service("aaservice")
public class aasrviceimpl implements aaservice
@Resource(name="aadaoimpl")
这是Service层的
xmlns="http://www.springframework.org/schema/beans"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:p="http://www.springframework.org/schema/p"
xmlns:context="http://www.springframework.org/schema/context"
xmlns:aop="http://www.springframework.org/schema/aop"
xmlns:tx="http://www.springframework.org/schema/tx"
xmlns:mvc="http://www.springframework.org/schema/mvc"
xsi:schemaLocation="http://www.springframework.org/schema/beans http://www.springframework.org/schema/beans/spring-beans-3.2.xsd
http://www.springframework.org/schema/context
http://www.springframework.org/schema/context/spring-context-3.2.xsd
http://www.springframework.org/schema/aop
http://www.springframework.org/schema/aop/spring-aop-3.2.xsd
http://www.springframework.org/schema/mvc
http://www.springframework.org/schema/mvc/spring-mvc-3.2.xsd
http://www.springframework.org/schema/tx
http://www.springframework.org/schema/tx/spring-tx-3.2.xsd"&
&context:component-scan base-package="com"&&/context:component-scan&
&bean id="dataSource"
class="org.apache.commons.dbcp.BasicDataSource"&
&property name="driverClassName"
value="oracle.jdbc.driver.OracleDriver"&
&/property&
&property name="url"
value="jdbc:oracle:thin:@localhost:1521:orcl"&
&/property&
&property name="username" value="scott"&&/property&
&property name="password" value="tiger"&&/property&
&bean id="sessionFactory"
class="org.springframework.orm.hibernate3.LocalSessionFactoryBean"&
&property name="dataSource"&
&ref bean="dataSource"&&/ref&
&/property&
&property name="hibernateProperties"&
&prop key="hibernate.dialect"&
org.hibernate.dialect.OracleDialect
&/property&
&property name="mappingResources"&
&value&com/java/pojo/aa.hbm.xml&/value&
&/property&
&bean id="transactionManager" class="org.springframework.jdbc.datasource.DataSourceTransactionManager"&
&!-- 数据源
dataSource在applicationContext-dao.xml中配置了
&property name="dataSource" ref="dataSource"/&
tx:attributes
&!-- 传播行为 --&
aop:config
这是我的spring配置文件信息
public void testShow() {
ApplicationContext ap=new ClassPathXmlApplicationContext("applicationContext.xml");
aaservice as=(aaservice) ap.getBean("aaservice");
aa ad=new aa();
ad.setName("as");
ad.setSex("f");
as.savea(ad);
最后就是我的测试信息
我用普通spring的方式注入就很好 但是换注解就报
org.springframework.beans.factory.BeanCreationException: Error creating bean with name 'aadaoimpl' defined in file
按赞数排序
配置mvc注解扫描了吗...
spring配置文件加这个了吗？意思是spring启用注解方式，，
&context:annotation-config /&
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐